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ABSTRACT 



Resource Management is an important aspect of 
management in today's construction projects. Companies 
now have to consider the impact of available resources 
not only for individual projects, but for multiple 
projects considered together as well. This report 
reviews the various methods currently available in the 
industry for the managing and leveling of resources. 
These methods include both manual and computer assisted 
solutions. Each method is evaluated with respect to 
its capability to assist the construction firm in 
managing single and multiple projects. In addition, 
this paper makes recommendations on the types of 
computer programs which would be most advantageous to a 
given type of user. 
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CHAPTER 1 
OVERVIEW 

1 . 1 Introduction 

Management of resources should be of primary interest 
to a construction firm that wants to be profitable, but 
many firms do not bother to actively manage or control 
resources until a resource crisis is upon them. Resource 
management is important for any given project or contract, 
but the need is even greater when a construction firm is 
working on several construction projects concurrently. 

In the construction industry, the relationship between 
resource management and a logic network, such as CPM, is 
that of a partnership. Essentially all logical methods of 
resource management are based upon the use of a network 
output which provides optimal starting and finishing dates 
for each activity or phase of work. Resources can be 
attributed to each scheduled activity, and from the 
resulting related information the resource requirements can 
be determined. 

1 . 2 Resource Definition 

A resource is anything which is necessary or desirable 
for the completion of a construction project. As you can 
see this is a very broad definition and it includes 
thousands of items. However, relatively few resources are 
relevant for any given project or construction firm. The 
number of resources which are relevant to a firm may range 
from as little as one to as many as several hundreds or 
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thousands depending on the size of the firm and the size 
and complexity of the project. 

Although there are thousands of resources which 
construction firms may want to control, nearly all will 

fall into one of six general categories. These general 

categories are: 

1. Money, e.g. cash flow restrictions. 

2. Time, e.g. contract time, seasonal weather 
restrictions . 

3. Material, e.g. brick, concrete, form lumber. 

4. Manpower, e.g. masons, carpenters, steel workers. 

5. Equipment, e.g. trucks, mortar mixers, cranes. 

6. Subcontractors, e.g. electrical subcontractors 
1 . 3 Time and Money Management 

Money, it has been argued, is the only resource which 

must be managed, since all other resources can be reduced 

to dollar and cent values. For instance, to most 
contractors time is of interest because of its effect on 
overhead costs and any penalties or bonuses related to the 
completion time. Therefore, they argue that time is only 
controlled due to its relation with money. If the effect 
of time was not related to money in any way then there 
would be no need to control time. 

In a similar way, manpower, material, and equipment 
can be converted to a cost. The argument is "If you have 
enough money you can buy anything." If you need more 
carpenters and there is a carpenter shortage in the state, 
you can, for a given cost, relocate carpenters from another 
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or train more. 



state or train more. Although the cost is normally 
prohibitive, the option is available if circumstances 
justify the expense. This process was in fact utilized in 
the case of the Alaskan Oil Pipeline. The bottom line of 
the argument is that the only resource which must be 
managed is money, since all other resources can be acquired 
for a cost and that cost is ultimately the deciding factor 
on which a decision is based. 

Although the above argument is valid to an extent, I 
believe that it is impractical in most projects to 
effectively analyze a project or group of projects with 
only the dollar costs involved. The complexity of trying 
to reduce all relative resources to dollar values and then 
analyzing all of the thousand of options available would be 
overwhelming. Although the reason for managing resources 
other than money is, in fact, to save money, most 
construction firms have made simplifying assumptions to 
facilitate their analysis. For instance many firms will 
not consider hiring outside labor or renting equipment when 
owned equipment is available even if renting is more cost 
effective. It is often company policy, then, which sets up 
the general guidelines which control the resources 
available and not purely the dollar value they may 
represent . 
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Time management is accomplished through various 
methods, but the most common in the construction industry 
are the Bar Chart, Arrow Diagrams, and Precedence 
Diagrams. There are some more elaborate and specialized 
methods which are occasionally used such as the Line of 
Balance Method, and probabilistic methods like PERT and the 
Monte Carlo Method. 

Time is managed by producing and following a planned 
schedule. The primary reason this is done is to increase 
profits, although there are other reasons such as 
maintaining a company's pride or reputation. However, a 
drive to maintain a good reputation for finishing projects 
on time may in some cases be driven by a fear that a poor 
reputation may lead to a loss of future revenues. 

Since money and time are resources which require 
unique and different types of controls, the rest of this 
paper will focus on the resources of material, manpower, 
and equipment. The term 'resources' will hereafter refer 
only to these three unless otherwise specified. 

1 . 4 Management Methods 

There are two basic ways for a construction firm to 
manage its resources. The first is to merely identify 
resources needed based upon the predetermined early start 
and finish dates for each activity and plan for the 
availability of resources accordingly. By doing this most 
resource shortfalls or conflicts are anticipated, and 
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management is prepared to correct or modify the situation 
before any serious disruption of operations can occur. The 
second way is to manipulate the start and finish dates of 
the project activities to reduce the requirements of a 
given resource on any given day. 

The difference between the two methods can be shown by 
an example. A project has a requirement for 10 carpenters 
on a given day but the company has only eight carpenters on 
the company payroll. The solution using the first method 
is to go to the Carpenters Union Hall or the local non- 
union equivalent and arrange for two additional carpenters 
to show up for work when they are needed. The second 
approach would be to note if the work being done on this 
given day for carpenters is comprised of more than one 
activity. If so, one or both activities could be moved 
within their respective float times to reduce the overall 
daily manpower requirements, or if time and money permits, 
the project could be delayed by the required number of days 
to eliminate the need to hire additional personnel. If, 
however, the activity times can not be modified due to cost 
or other constraints, then the options described for the 
first management approach would be undertaken. 

Generally most firms actively controlling resources 
will use a combination of these methods. They will move 
resources to the greatest extent practical within their 
float times, and further conflicts will be reconciled by 
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recognizing the conflict and arranging for a solution in 
advance by renting extra equipment or hiring additional 
workers for the time period in question. 

1 . 5 Scheduling Requirements 

The managing of resources and the use of a logical 
scheduling method are inseparable. It is obvious that the 
resource requirements need to be presented in relation to a 
time period such as days, weeks, or months. The manager 
needs to know what his resource requirements are on any 
given day or group of days. There is really only one way 
this listing of daily resource requirements could be 
derived. That method is to develop a schedule covering, as 
a minimum, all work which requires the use of managed 
resources. Once a schedule is developed, the resource 
requirements for each activity or operation can then be 
applied to the schedule. Each activity or portion of an 
activity will have applied to it the resources it consumes. 
From this base information, the project or groups of 
projects can have their resource requirements identified 
and ultimately managed for any given period of time by 
using one or more of the methods described in this paper. 
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CHAPTER 2 

SCHEDULING METHODS 

2 . 1 Critical Path Method (CPM) Definitions and 

Descriptions 

Critical path networks are logical scheduling systems 
which produce a listing of start and finish dates for each 
activity identified. 

An activity (or operation) is any portion of a project 
which consumes time, money, physical action, thought 
process, and/or any identified resource, and which has 
definable beginning and ending points. 

The results obtained from a CPM analysis are early and 
late start dates, and early and late finish dates. The 

manager is also informed of the critical path. An early 
start date is the earliest time (or date) which a given 
activity may begin. This time is based upon any 
restrictions imposed as described below. The early finish 
date is the earliest time which a given activity can be 
finished based upon the early start date and its duration 
(i.e. the time needed to accomplish the activity). Late 

start and finish dates are similar to the early dates 

except that they are based upon the latest dates which work 
can be accomplished without extending the overall project 
completion time as determined by the aggregate effect of 
all the project activities and their respective 

restrictions . 
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The critical path is a sequence of activities which 
have the same date for both early start and late start. 
Each activity in that sequence is called a critical 
activity. The significance of the critical path is that 
any delay associated with a critical activity will result 
in an extension of the scheduled project completion date. 

2 . 2 Activity Restrictions 

Restrictions may be imposed on an activity as a result 
of the characteristics of the activity itself, because of 
contract requirements, or because of company policies or 
requirements. Whatever the origin of the restriction, it 
will be one of two types. The first type of restriction 
generally applies to the relationship between activities 
within a given project. These are the "prerequisite 
condition" restrictions. The second type of condition is 
the resource restriction. 

Prerequisite condition restrictions are based upon 
building trade practices and logical sequences of work. If 
one activity may not start until one or more other 
activities have been completed, then a prerequisite 
condition restriction exists. As an example, consider that 
concrete placement for a wall may not start until the 
formwork is complete and reinforcement steel is in place. 
The prerequisite condition for placement of concrete is 
completed formwork and reinforcement steel . Performing the 
work in any other order and obtaining the desired end 
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product would be functionally impossible. While 
prerequisite conditions are predominantly due to 
constructability requirements, they may be due to 
contractual requirements as well. An example of this may 
be illustrated by considering an asphalt resurfacing 
contract. Suppose the owner has required in the contract 
that the parking lot is to be paved in sections such that 
at least three quarters of the lot is available for use at 
all times. Although there is no constructability 
requirement that prevents the lot from being resurfaced as 
a whole, there is clearly a contractual requirement that it 
be done in quarters . 

A resource restriction represents a condition where 
the resources available are limited or restricted. This 
condition may exist in a number of ways but the most common 
are in relation to manpower and equipment. For example, if 
a general contractor needs ten carpenters to build formwork 
for foundations in one area of a project and ten more 
carpenters to frame out the building in another area of the 
project, but he only has ten carpenters on the payroll, he 
can obviously not have them working in two places at the 
same time. Similarly, a company which owns only one crane 
may at some point need it for two different jobs either on 
the same or different projects at the same time. In both 
of these cases it is the actual resource that is limited. 
The other type of resource restriction occurs when there is 
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a physical limit to the amount of equipment or number of 
workers which can work in a given area. An example of this 
is the finishing of a room. It may be impractical for one 
crew of workers to put in a ceiling, while another places 
the floor, and while still another paints the walls even 
though there are no prerequisite condition restrictions 
which would prevent doing the jobs concurrently. In a 
large auditorium this would not be a problem but imagine 
the difficulty if it was a hotel bathroom. This could be 
termed a constraint on the resource of space. 

2 . 3 Unlimited Resources 

The critical path methods assume an unlimited supply 
of resources, i.e. the only restrictions considered are the 
prerequisite conditions. This is done for several 
reasons. One reason is the belief that anything can be 
done for a price, meaning, if you pay enough you can 
overcome any resource shortfalls. A second reason is 
simplicity. The listing of prerequisite conditions is 
relatively easy compared to the difficulty of listing all 
of the resource constraints prior to the scheduling of a 
project or group of projects. And a third reason is 
flexibility. This actually relates to the first two 
reasons in that the scheduler is given the flexibility to 
decide if it will be cheaper for the company to hire 
additional workers and rent additional equipment or if it 
is better to delay the project a given number of days and 
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incur the additional overhead costs. In addition, in the 
case mentioned above concerning the room finishing, it 
would be placing excessive conditions on the project to say 
that the ceiling workers must follow the floor workers or 
vice versa. It would be more reasonable to schedule the 
two as if they could both start on the same day but make a 
note on the output to indicate that they may not occur 
simultaneously. The field supervisors can then decide 
which sequence is better based upon current information and 
conditions . 

CPM networks identify the specific critical activities 
which are expected to control the minimum practical project 
completion time. As mentioned earlier, the most common 
methods are Arrow Diagraming, Precedence Diagraming, 
Program Evaluation and Review Technique (PERT) , and the 
Monte Carlo Method. Each of these methods has its 
advantages and disadvantages, but the use of one of these 
methods is generally recognized as essential for effective 
resource management in a sizeable construction project. 
Some background on the various CPM methods is necessary to 
understand the further application of resources to the 
system. 

The basic information or actions which are necessary 
for evaluating each of the CPM methods mentioned above 
includes : 

1. Breaking each project into logical activities. 
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2. Identifying the expected duration for each activity. 
The duration may be in any standard measure of time e.g. 
calendar days, work days, months, etc. 

3. Identify any dependent (prerequisite condition) 
relations between the activities. This is done by 
specifying which activities must be complete, or in a 
certain phase of completion, before the identified activity 
can begin. 

4. Identify all resources of concern to the manager which 
are required for that activity, if any. 

After these four actions have been accomplished, the 
information for either an arrow diagram or precedence 
diagram is complete, but the PERT and Monte Carlo methods 
need to have additional information. PERT and Monte Carlo 
are statistical methods which consider probabilities in 
determining the duration of the activity. In addition to 
the expected duration, Monte Carlo and PERT require the 
determination of an optimistic and a pessimistic duration. 
Regardless of which method is used, the result of the 
analysis is the determination of an early start, early 
finish, late start, and late finish date for each activity 
identified. These results can be graphed in a bar chart. 
In this form the manager has an easily read graphical 
representation of when each activity is to be accomplished 
along an identified time line. 

2 . 4 Line of Balance Method 

A second general type of scheduling is called the Line 
of Balance Method (LOB). This scheduling technique is best 
suited for linear or repetitive construction. 
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The LOB is broken down into definable units called 



operations (or activities). Operations, unlike activities, 

are defined by work rates vice durations. However the end 

> 

result is much the same. The graphed result of the LOB 
scheduling method shows an operation's start and finish 
dates and its relation with the rest of the project or 
other projects. 
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CHAPTER 3 

RESOURCE IDENTIFICATION AND ALLOCATION 

3 . 1 Resource Identification 

One of the first steps which needs to be taken before 

the project is scheduled is the determination of which 

resources are of concern to the construction firm. It is 

obviously frivolous to track how many hammers will be 

needed for a certain activity, especially if all the 

carpenters are required to provide their own tools. What 

needs to be tracked, however, are resources such as 

carpenters, laborers, steelworkers, forklifts, cranes, 

bulldozers, scrapers, etc. The more expensive the resource 

is to the company the more important it is that it be 

managed effectively. Care should be taken not to be 

trifling and consider insignificant resources, or to become 

careless and not consider some very expensive or critically 

short resources. The list of items which are necessary to 

incorporate into the resource management system can also 

change with time. Consider the examples given by Edward 

M. Willis in Scheduling Construction Projects : 

In the spring of 1983, there was a shortage 
of gypsum wallboard throughout the South 
Atlantic region, even though plentiful 
supplies were available in other regions of 
the country. In this instance, suppliers 
rationed the amount of wallboard they would 
deliver to individual customers until 
additional supplies could be brought in from 
other regions. A more serious resource 
shortage occurred in 1973, when there was 
worldwide shortage of copper electrical 
wire. The supply of basic copper had been 
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affected by the global energy crisis that 
was precipitated by the Arab oil embargo. 

Some manufacturers of copper wire gave 
priority for delivery to customers wljio could 
provide basic copper or scrap copper. 

3 . 2 Activity Identification 

When scheduling by CPM networks the scheduler must 

consider how to divide the project into a list of 

activities. The first step is to break the work into 

logical cohesive units with respect to the construction 

process: first build the foundation, then build the walls, 

and then complete the project by building a roof. Each of 

the above three activities can again be broken into 

numerous smaller activities. With respect to the 

foundation, it must first be excavated, followed by 

formwork, reinforcing steel, and concrete placement. These 

activities can be broken down a third time into even more 

specific operations. Excavating the foundation can be 

further refined to machine excavate, then do the fine edge 

work by hand, followed by compacting the excavation bottom, 

and finishing with testing for compaction. The scheduler 

can either make a few broadly defined activities or he can 

be very detailed and specify numerous activities. When 

determining how definite to make the activities the primary 

question the scheduler must be asking himself is, "Who is 

going to use this schedule and for what purpose?" 
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If a schedule is being developed for upper management 
to track the progress of the project, a relatively broad 
approach may be used. However, if this schedule is going 
to be used in the field to control the primary project 
resources of manpower and equipment then a more refined 
approach must be taken. In effect, the activities must be 
refined and narrowed, until the basic resources identified 
above become elemental to each activity. To clarify what 
is meant consider the example above concerning the 
foundation construction. This activity consumes numerous 
man-hours of different trades and different types of 

equipment. If the scheduler had considered this a single 
activity and attempted to allocate all the resources 

required by this activity, he would need to include 
laborers and a backhoe to excavate, carpenters to build 

formwork, steel workers to place the steel, and concrete 

pumps, power trowels, and concrete finishers to place the 
concrete. If this is a project of any appreciable size the 
time consumed to accomplish all of the described work would 
be considerable, with all of the above resources being 
allocated to the activity for the entire duration. This 
would obviously be a gross inaccuracy. The answer is easy 
to see in this case. The scheduler must break his activity 

t 

of foundation construction into the more specific 
activities described above. 
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Whether or not there needs to be further refinement of 



the activities by the scheduler is based upon his best 
judgement. There are practical limits to the refinement 
which is sought due to the effort to keep the schedule from 
becoming unnecessarily cumbersome. He should consider the 
suitability of the activities based upon how well they 
reflect the actual resource consumption as weighed against 
trivial gains in accuracy and adding unnecessarily to the 
complexity of the schedule. 

3 . 3 Distribution of Resources Over an Activity's Duration 

A general assumption made when allocating resources to 
an activity is that the resource utilization or consumption 
rate is ' constant throughout the duration of the activity. 
This assumption is made due to its mathematical simplicity 
rather than any reflection of reality. In actual 
situations resource utilization is seldom uniform. The 
most common case would probably show an increase from a 
lesser level until the optimal rate assumed is attained. 
As the end of the activity draws near the tendency will be 
to decrease resource requirements over a period of time 
until the activity is ended. The actual variance of 
resource utilization rates within an activity is almost 
endless. A few of the many possibilities are shown on 
Figure 1 in Appendix A. 
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Although the actual variations from the constant rate 
assumption can be seen and even measured in the field, it 
is not practical to attempt applying this to a schedule. 
The problem is that most resource rates for activities can 
not be accurately described in advance of execution, nor 
would a variable rate be suitable for easy analysis. 

3 . 4 Modification of Constant Resource Rate Utilization 

If the project activities have significant and 
predictable variations there is an option available. The 
scheduler may subdivide the activity in question into two 
or more linear activities. An example of this can be shown 
in the case where a suspended ceiling is going to be put in 
a large meeting hall. The scheduler has the choice of 
defining an activity "install all ceiling tile," or 
dividing this activity into two smaller activities. The 
first would be "place all full size ceiling tiles," and the 
second would be "cut and place partial tiles." If the 
number of workers and the number of tiles consumed daily 
are relatively constant, the one activity would probably 
suffice. However, if the work normally progresses with a 
full crew of workers placing the whole pieces followed by a 
partial crew specially trained to cut and fit the edges, 
then it would be more beneficial to schedule using the two 
activities described above and to allocate the resources 
accordingly. Although this is a rather simplistic example, 
the principle can be carried to cases where resources 
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increase and/or decrease at predicted rates. Under these 
conditions the scheduler can link the activities linearly 
and step the resource requirements of each as appropriate 
to get an approximate representation of the actual 
conditions which will be encountered. Again, caution 
should be used not to overdo the addition of activities. 
Needless breakdown of the project will only lead to 
confusion and excessive control where it produces no 
beneficial effect. 

3 . 5 Activity Start Date Determination 

Producing an adequate schedule and a plan on how to 
execute that schedule is imperative if the contractor is 
going to attain his desired profit. If a well thought out 
plan is produced, updated, and carried out, both the 
contractor and owner can realize a cost savings. 

The contractor has several different ways to develop 
his schedule. The first and most basic is to begin all 
work associated with each activity at the early start 
date. There are however some advantages and disadvantages 
of always starting work on the early start date. The 
primary advantage is that the likelihood of a minor delay 
in any non-critical activity would not adversely affect the 
project duration or resulting overhead costs. The 
disadvantage is primarily based upon the parallel nature of 
many early start dates. By this I mean that all activities 
which are dependent upon the same activity will have the 
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same early start. The result Is numerous activities may be 
scheduled to start simultaneously at their early start 
dates. The concurrent starting of these activities could 
result in the competition for resources or the inefficient 
use of resources. An example can show the difficulty 
involved. Suppose a one room addition is being made to an 
existing office building. A schedule may have many 
activities dependent upon the covering of the building with 
a water tight roof. Assume that the plastering of the 
walls, the ceiling installation, the placement of floor 
tile, and finish carpentry work can all begin upon 
completion of the roof work. If the contractor plans to do 
all of this work with in house employees, he will most 
likely not have enough workers to execute all of the tasks 
simultaneously. Even if he has enough workers, the 
situation is analogues to the situation of finishing a room 
described previously. It might be physically impossible 
due to space limitations to do all these activities at the 
same time. In the first case hiring more employees would 
solve the problem, but a solution to both would be to 
stagger the start dates of the activities rather than 
consistently using the early start dates. 

For most contractors, staggering or delaying the start 
of some non-critical , parallel activities is far more 
palatable than hiring additional workers who will only be 
needed for a short time and whose level of skill is 
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unknown. For contractors who are working on more than one 
contract at a time, the additional problem of scheduling 
work with the related resource constraints is further 
complicated. The contractor in this case needs to further 
analyze not only the project being scheduled but also what 
affect that schedule may have on any ongoing projects. 

All this demonstrates that a plan of always using 
early start dates, or always using any specific dates 
whether early or late, is generally not practical and 
therefore not advisable. Each project must be scheduled 
based upon facts and educated judgement of the people 
involved, who consider the resource requirements within 
that project, plus the resource requirement of all the 
current projects under the company's control. This means 
not only scheduling the new project but possibly 
rescheduling all of the current or ongoing projects. 
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CHAPTER 4 

MANUAL RESOURCE LEVELING METHODS 
4 . I Introduction 

Resource leveling is the process described earlier 
whereby schedules are modified to optimize the use of 
resources using float times of an activity or occasionally 
by using a flexible contract completion time. From this we 
can define the two ways to approach resource leveling. 
These methods, as referred to by Robert B. Harris, are 
"Unlimited Resource Leveling" and "Limited Resource 
Allocation . " ^ 

The unlimited resource leveling approach has the goal 
of reducing the resource requirements to the greatest 
extent possible without increasing the scheduled project 
time as determined by the critical path. This approach 
places the higher priority on reduction of project overhead 
costs and less on the possible increased resource costs. 
It also assumes that any resulting resource requirements 
can be attained for a reasonable cost. 

The limited resource allocation approach recognizes 
that sometimes it is more advantageous to incur the 
additional cost of a few days of overhead, liquidated 
damages, and/or penalties, in lieu of incurring the cost 
of training new employees, or renting additional 
equipment. This approach uses a defined limit on the 
allowable resource demand for any given day or period of 
time. Based upon this limit and its affect on the 
CPM network, the length of the project is determined. 
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Therefore, the limit on projected resource requirements has 
priority over minimizing the project duration. 

Regardless of the approach, however, the ultimate goal 
of resource leveling is to reduce peak and valley demands 
for resources. There are two methods of accomplishing 
this . 

4 . 2 The Traditional Method 

Harris uses the term "Traditional Leveling Approach" 

to describe one of the simplest manual systematic leveling 
3 

methods. This method will review each project day and 

will compare the daily resource requirements against the 
allowable limit (the limited resource allocation 
approach) . If that limit is exceeded, a set of 

predetermined steps are taken to reduce the resource 
requirement . 

4.2.1 Solution Steps 

The first step in this method is to determine the 
resource requirements for each activity and develop a CPM 
network with early and late start times, early and late 
finish times, and float for each activity. 

At this point the resource limits must be compared to 
each individual activity requirement to insure that no 
single activity alone exceeds the allowable limit. If this 
does occur either the limit must be modified, the 
production modified to reduce the daily quantity demanded, 
or the activity in question must be broken into two or more 



23 



smaller activities which have their individual resource 



limits within the acceptable bounds. 

Once all of the appropriate start and finish dates 
have been determined, the results must be graphed on a bar 
chart. The method for accomplishing this should be to 
first graph all of the critical path bars allowing at least 
one graph block width for each time duration unit used. 
This is generally calendar days, work days, or weeks. For 
simplicity, the time period used here will be 'days' 
although any time period would be acceptable given that it 
is used consistently. Following the graphing of the 
critical activities, graph the non-critical activities with 
respect to their early start dates. 

Now that the bar chart has been prepared, the resource 
rate (the resource requirement per time period graphed) of 
each resource in question is applied to each activity bar. 
This can be done by writing the rate adjacent to the bar or 
by having a legend or listing available for reference. If 
only one or two resources are being evaluated it is easier 
to make a note on the activity bar itself. 

The next step is to sum vertically all of the resource 
requirements on a daily basis. The daily sums are then 
recorded on a line called 0. 

The sum line of 0 is now analyzed to determine if 
there are any values which are in excess of the 
predetermined limit. If not, the schedule is acceptable as 
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it stands (with respect to the self imposed resource 
limits) and no further analysis is required. If, however, 
the results of the first summation show values above the 
limit, some of the activities will need to have their start 
dates delayed. 

The approach to take is to find the first day in which 
the resource requirement exceeds the allowable value. Move 
vertically through the bar chart to the activity or 
activities contributing to that particular resource. 

Move that bar to the right (i.e. delay the activity 
start date) one day. Enter a line below £0 with a notation 
showing which activity was moved, which direction and how 
many days it was moved. The notation used by Harris is 
" C-*T " , which indicates activity C was moved to the right 1 
day. 

The summation needs to now be corrected to show the 
new situation. To do this add and subtract as appropriate 
from the £ 0 line the resource rate of the activity moved. 
Show these values with their correct signs on the line 
noted as C-*-l . 

The next step is to create another summation line 
called £ 1. This line will show the summation with respect 
to the first change made to the schedule. If this new 
summation line shows that all the daily resource 
requirements are met then the process is complete, if not, 
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then go again to the non-critical activity causing the 
excessive requirement and move it a day. 

The process of moving activities to the right within 
their float and then re-summing and reevaluating continues 
until either all float is consumed or all resources have 
been brought under the required limit. At this point if 
there is still an excess of resource demand on any given 
day, the answer is to extend the project duration and to 
move a critical activity a day at a time until the resource 
requirements are within acceptable limits. A relatively 
simple example of this analysis is shown in Appendix B, 
Figures 1 through 4 . 

4.2.2 Problems 

The biggest problems with this method are that it does 
not truly level the work to the greatest extent possible, 
it tends to excessively load resources at the end of the 
project, and it is very cumbersome to work with for any but 
the simplest of projects. 

The problem of not leveling the project to the 
greatest extent possible can be alleviated with some 
additional effort following the reduction of all daily 
requirements below the limit. What needs to be done is to 
review the resource peaks and see if movement of the 
related activities within their respective floats would 
smooth out some of the peaks and valleys. This would be 
accomplished in a similar way as above except that a lower 
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resource limit would be used for that limited time period. 
In addition the critical activities would probably not be 
considered for movement since the original resource limit 
was met earlier and any further movement of critical 
activities would result in extending the project completion 
times . 

The second problem of excessive loading of resources 
at the end of a project can occasionally be reduced to a 
small degree by examining whether or not any of the 
previously moved activities can be moved back to the left 
(i.e. started earlier) without exceeding the resource 
limits previously attained. The method by which this is 
done is primarily trial and error, however the scheduler 
should be able to visually discount many options and 
thereby minimize the number of options which need to be 
checked . 

The traditional approach becomes complex when large 
projects are involved or more than one resource is 
involved. This complexity stems from the interdependence 
of all the activities and the possible number of 
activities. When activities are moved within their free 
float (days an activity may be delayed without affecting 
any other activity) there is relatively little difficulty. 
However when interfering float is involved i.e. float which 
delays other activities but not the project time, which is 
the more common occurrence, the interdependence of all of 
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the activity bars must be analyzed. The result is not that 
just one activity is moved one day, but that one is 
intentionally moved and another fifteen are affected and 
therefore also moved back one day. This type of 
manipulation leaves a lot of room for error. 

The number of resources which must be leveled can have 
a great affect on the amount of work necessary to level the 
project. If two resources are involved, the first resource 
must be leveled as previously described and then the 
process is repeated for the second resource. There is one 
major problem with this however: moving activities for the 
second resource may increase the daily resource 
requirements for the first resource already leveled. 
Therefore, whenever more than one resource is involved the 
result may be a cyclic solution. After the second resource 
is leveled it may be necessary to go back and reschedule 
based upon the first resource again, and so on. 

There is an alternative to this cyclic solution, but 
the resulting schedule is not as good and the additional 
work is only partially reduced. Using priorities, each 
resource should be ranked based upon its importance. The 
first resource would be scheduled as if it were the only 
resource, and all following resources would be scheduled 
with an effort to bring their rate demands below the set 
limit without adversely affecting any previously scheduled 
resources. The problem here comes from the continual cross 
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checking between resources to see the resulting effect of 
any rescheduling. In addition, scheduling beyond the first 
one or two resources will have very limited effect since 
most activities will be 'locked in' resulting in very 
limited flexibility. 

4.2.3 Applicability to Multi-Project Management 

The traditional approach can be modified to account 
for multi-project management. This can be accomplished by 
stacking the projects on the same bar chart. The first 
project will have a bar chart produced which is identical 
to the single project example explained above. The second 
project can be graphed just below the first on the same 
sheet. The summation line will then be listed below both 
projects such that it incorporates both projects. The 
activities of either or both projects can then be moved, as 
they were in single project situation, to reduce the 
resource requirements below the limit. 

Care must be taken in the multi-project case to relate 
the two or more projects by date. In the single project 
analysis the actual start and stop dates were irrelevant. 
Whether day one was on January 1 or on June 10 the analysis 
is the same since all activities are related to the initial 
start date. In the multi-project case there is no such 
relation between projects. To represent properly the 
relationship between the two projects they must be applied 
to the same time line. The easiest and clearest way to 
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accomplish this is to apply them to a calendar date 
listing, vice a listing of project duration days which is 
sometimes used for only one project. An alternative method 
may be used but, in most cases it is less practical than 
using dates. For example, it is possible to relate all 
trailing projects to the first project by indicating the 
actual number of days by which each trails: i.e., project 
two begins on day ten of project one. This requires the 
planner to first convert all known project dates to elapsed 
time in days and then, upon completion of the leveling, he 
will again have to convert the information back into 
calendar dates. Although this method is possible, it is 
more confusing and less representative of the actual 
condition. It is much more logical to work with the 
projects using their relation to actual calendar start 
dates, since that is the form it will ultimately take in 
the schedule. 

The complexity of the leveling is increased greatly 
when analyzing multiple projects. By introducing more 
projects, more activities are involved on any given day. 
As a result, the level of difficulty in obtaining a 
reasonable solution is amplified. However, there is not 
the additional problem of dependencies between projects. 
Movement of an activity in project one will only have 
effects on the dependencies and logic of project one, not 
project two. The only likely exception to this would be if 
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the two projects are on the same site and are related by 
being part of some larger master project. 

4 . 3 Minimum Moment Approach 

The minimum moment approach to resource leveling is a 
method whereby the scheduled duration of the project is 
maintained, while the resource histogram is optimized to 
the greatest extent possible. This is done by reducing the 
peaks and valleys of the histogram into the best possible 
approximation of a rectangle which activity constraints 
will permit. 

The term minimal moment approach is used since it best 
describes the theorem on which the method is based. The 
theorem as stated by Harris is as follows. 

When a given set of elements is arranged 
into a histogram over a fixed set of intervals, 
the minimum moment of the elements exists when 
the histograij is a rectangle over the fixed set 
of intervals. 

Before discussing this method further it is best to 
explain some terms. The first is "back float". Back float 
is the amount of time (usually in days) which an activity 
may be started earlier, i.e. the difference in days between 
the scheduled start date and the early start date. 

Harris also uses the term "improvement factor". The 
improvement factor is a measure of whether the moment of 
the histogram has been increased or decreased. A positive 
improvement factor indicates a decrease in the moment. 
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This method follows a list of very detailed steps 
which produces an optimized resource histogram within the 
constraints of project time and activity dependencies. 
This optimized value may or may not fall within any known 
resource limits anticipated, and the resulting histogram in 
most cases will not look rectangular. The result will, 
however, have fewer and less pronounced peaks and valleys 
than the original unleveled histogram. 

4.3.1 Method and Procedures 

Only an overview of the method is given below. A 
detailed approach on how to solve for a leveled schedule 
using this method, plus an example, are shown in 
Appendix C. The actual process which occurs when following 
these steps is as follows. 

The first step (after all basic information is 
determined) is to start with the activities which have the 
latest start date, and determine the improvement factors 
for each day of float allowed. The activity is then moved 
the number of days corresponding to the highest improvement 
factor. If the highest improvement factor is negative, no 
movement takes place. A positive improvement factor 
indicates that movement of the activity by the given number 
of days decreases the histogram moment, thereby leveling 
the histogram. A zero indicates there is no improvement, 
but if this is the highest value the activity is moved 
anyway. Although there is no direct or immediate 
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beneficial effect from the moving of that activity, it 
allows greater free float for activities which occur 
earlier in the project. A negative improvement factor 
indicates that the moment of the histogram is increased and 
the movement of an activity the corresponding number of 
days would be detrimental to the leveling effort. 

The second step is to move consecutively earlier with 
respect to the early start dates and repeat the procedure 
used in the first step. 

When all activities have been moved forward or at 
least tested to see if they should be moved forward, a 
reverse pass begins. This is the last step. The 
improvement factors are again calculated, but this time the 
first activity to be checked is that with the earliest 
start date. The decision on whether or not to move the 
activity is based upon the same rationale used earlier. 
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The reason the reverse pass is used is primarily to 
prevent the problem of loading the resources at the end of 
the project. The reverse pass moves, to the greatest 
extent possible, all activities forward (i.e., earlier) 
which have no detrimental effect on the moment. 
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4.3.2 Problems 



The biggest single problem with this method is it's 
complexity. To learn the method such that a simple ten 
activity project can be solved may take several days. In 
addition there are so many confusing manipulations of 
numbers on the matrices that the chances for a mathematical 
error are also very large. A corresponding problem which 
stems from the complexity is that the individual doing the 
scheduling will have to continually use the method to 
remain proficient at it. If he attempts to perform the 
calculations once every couple of weeks he is going to find 
that he needs to review and relearn the specifics of the 
method . 

In addition to the above the time required to solve a 
problem is extraordinary, again because of the complexity. 
To solve a relatively simple problem such as that given as 
an example in Appendix C, may take up to two or three 
hours. The time involved and the chance for error increase 
tremendously if the number of activities involved increase 
moderately . 

The final problem worth noting is that the solution 
obtained by the method may not be acceptable. If a 
constraint on the number of resources exists, this method 
is not equipped to systematically extend the project time 
to produce further leveling in order to attain that known 
limit . 
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4.3.3 Applicability to Multi-Project Planning 
This method is not suitable for multiple project 
planning; it is not easily adaptable to providing for the 
leveling of two or more projects which occur 
simultaneously, and attempting to do so would add 
overwhelmingly to the already complicated system. If the 
approach could be made easier to use by the common planner 
in the industry, the method would have some merit. The 
only way that is going to happen, and has happened to a 
limited degree, is with computers. 
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CHAPTER 5 

COMPUTER ASSISTED RESOURCE MANAGEMENT 

5 . 1 Overview 

Resource management through the use of resource 
leveling methods lends itself well to computer 
applications. The numerous calculations and complicated 
interdependencies are best handled by a machine which is 
designed specifically for that task. The computer and the 
related software can perform this function quickly, 
effectively, and economically. 

There are numerous commercial and some public domain 
products on the market which can assist the project planner 
with his scheduling. The more advanced of these provide 
the project planner the ability to level resources for a 
given project, but only the most sophisticated provide the 
means to level resources for multiple projects. 

5 . 2 Current Use in the Industry 

Although the micro-computer is now readily available 
to nearly any business for a reasonable cost, the 

construction industry has been slow to utilize this tool. 
At this time the number of project planners and schedulers 
using a computer based system is minimal, but increasing. 
Most are still using manually generated bar charts and many 
of those are not based upon a network such as CPM or PERT. 
When this is compared to the relative ease, speed, 
accuracy, and control provided by computer generated 
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networks and bar charts, the lack of utilization of this 
resource is astounding. 

There are a few reasons that many companies do not 
seem to use computers yet. One of the biggest reasons 
seems to be a fear of or lack of trust in the machines. 
The existing generation of company executives who did not 
grow up with computers in the home or at school feel 
intimidated by the computer. They feel that you have to 
be young to learn how to use one. As a result they do not 
see why they cannot continue to get along with the methods 
they have used for the last thirty years. 

Another reason computers are not used to the fullest 
extent possible is the learning curve. Many owners are 
hesitant to purchase the computer hardware and software, 
not because of the direct cost, but the indirect costs. An 
IBM XT with associated hardware and one of the better 
software packages would cost less than 5000 dollars. For 
most companies this cost is trivial. But, the time and 
prospective profit lost by the company's schedulers and 
planners while trying to learn how to use the software, can 
cost a company much more. While the employees are learning 
the system they do not have as much time to devote to their 
ordinary duties; this may mean hiring additional temporary 
personnel. If the software has a particularly long 
learning curve the indirect and intangible costs may be 
significant. If, however, the software can be used 
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reliably after minimal training to at least match the 
existing scheduling efforts, then the cost of the 
equipment and training is quickly offset by the benefits 
gained . 

The last major concern of many company executives is 
that they may get schedulers and planners that become 
indispensable. In other words, if only one project planner 
or scheduler learns the computer system, he has exceptional 
control over the company through his unique knowledge. The 
management may be faced with a choice of either paying the 
employee an exorbitant salary or letting him go and trying 
to retrain a new person. The problem with training a new 
person is that he needs to be proficient with the system 
before any serious damage is incurred to ongoing projects 
due to lack of project control . 

5 . 3 How to Find the Right System 

There are several items which should be considered 
when deciding what computer system to buy. As a minimum 
the following traits should be considered for each option. 

1. Training necessary to utilize the system. 

2. Applicability to your company, i.e., is it a home 
builders software package and you are an earth moving 
company or is it too sophisticated or too basic for 
your applications. 

3. Quality of output, i.e., is it clear and concise. 

4. The total system cost including indirect costs. 

5. Efficiency of the system, i.e., is the system 
cost effective as a result of time saved. 
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The above considerations are not in any particular 
order of importance. That order should be defined by the 
firm considering the purchase based upon their particular 
needs and concerns . 

5 . 4 Benefits of Computer System Utilization 

According to Daniel D. Roman there are seven basic 
benefits to be derived from using a computer system in 
project management. These are economy, responsiveness, 
improved management visibility, accuracy, forced planning, 
the ability to manage complexity, and reduced clerical work 
load . 5 

5.4.1 Economy 

It is usually cheaper for the planner to use a 
computer. In the past the only feasible way to use a 
computer was to have a central system used on numerous 
large repetitive operations and run by a specialized team 
of persons. Today, however, due to the increased 
flexibility and power, and the decrease in size and cost of 
new systems the computer can be used by an individual on a 
part time basis and still be economically feasible. 

The company can obtain cost savings both directly and 
indirectly. The direct savings are a result of the 
employee being more productive. The indirect costs can be 
realized through the better management of the firm's 
resources. If the employee does a better job at 
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controlling costs by using the computer, the company is 
going to reap the cost benefits. 

5.4.2 Respons i veness 

The response time to changes or updates in schedules 
or resource requirements can be reduced to minutes or hours 
instead of days. When a change is imminent the effect of 
that change can be determined within minutes when a 
computer is used. Direction on what corrective action or 
preventative action must be taken can be decided 
immediately, and the resulting information can then be 
forwarded to all persons involved thereby reducing costly 
delays . 

5.4.3 Improved Management Visibility. 

Project managers at all levels throughout the firm 
also receive the benefit of computer generated management 
information. The information generated by the computer 
software is generally provided in a clear and concise way 
and is suitable for direct incorporation into reports for 
either superiors or subordinates on demonstrating current 
conditions, progress, or control on any given group of 
projects. By having this clear, concise, and consistent 
information available the project managers are better able 
to do their jobs of managing the firm's obligations. 
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5.4.4 Accuracy 



The accuracy of the computer system in most cases is 
near perfect, provided of course that the software is 
without error and the raw information being entered is 
correct. The saying that 'a computer can do more work in a 
minute than a man can do in a lifetime, but it can also 
make more mistakes in one second than a man can in a 
lifetime' is true, but with commercial computer software 
and hardware on the market today most of the error 
producing problems have been eliminated. Many software 
packages are 'user friendly', meaning that the software can 
detect incorrect or inaccurate input and inform the user of 
the mistake. This has resulted in the elimination of many 
common errors. The fact remains, however, that with 
current systems, the final output is much more likely to be 
correct with a computer than a solution determined 
manually. 

5.4.5 Forced Planning 

The tendency to plan where there was no planning 
before exists when computers are used. This is caused by 
the vast amount of information which can be produced by the 
computer. When reports and schedules can be prepared 
easily and quickly, and any inconsistencies or errors are 
pointed out by the computer generated report, management is 
driven to refine their planning so as to correct any weak 
areas identified by the system. This is simply a result of 
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management's dislike of 'loose ends' and their desire to 
correct problems which are identified. 

5.4.6 Ability to Manage Complexity 

Many projects which are undertaken are so complex that 

the only way to effectively manage the work is through 

computer systems. The computer can schedule and track a 
project of thousands of activities and resources. There is 
no way that a team of workers could effectively accomplish 
the same task. The sheer amount of time required to make 
the initial schedule manually would render that schedule 
obsolete by the time it was complete. It would be 

virtually impossible to get a schedule which was reasonably 

correct or leveled to any extent to make the project 
economically profitable. A large complex project, such as 
the building of a power plant, managed without computer 
assistance would be comparable to accomplishing the work by 
'the seat of your pants. ' 

5.4.7 Reduced Clerical Work Load 

The time required to retype reports which incorporate 
project schedules and other planning documents is greatly 
reduced with the help of computers. Word processors help 
with routine paperwork and construction focussed software 
aids in getting reports completed accurately and on time. 
Without a computer a clerical worker such as a draftsperson 
might spend hours producing accurate charts, drawings, and 
graphs for presentations or on-the-job use. When 
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construction conditions change, they may spend much more 
time redoing the work. With the computer and the proper 
software, many of these visual aids can be produced and 
changed as the project is being updated. This results in 
fewer man hours required to complete the same work and less 
repetitive work for the staff. 

5 . 5 Computer Software Available 

There are numerous software packages available on the 
market and additionally there are some public domain 
programs which are available. The packages discussed here 
are Primavera , MicroTrak , Open Plan , MacProject , and 
CPMREV, a program written by myself in the BASIC computer 
language . 

5.5.1 MicroTrak 

The software used for analysis is a demonstration 
program which will handle up to ten activities. Examples 
of the outputs from this program can be seen in Appendix D. 

5. 5. 1.1 Characteristics Capabilities and 
Limitations 

The system is menu driven. This means that the 
user is given prompts on each screen on what the next 
step is or what the possible options are. 

The number of activities which a registered 
version of the program can use is stated to be about 
5000. This limit is based upon the use of a hard disk 
system. If floppy disks are used this limit is 
greatly reduced. 
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This program is based upon the precedence 
scheduling method vice the arrow method. In doing so 
the option of some nonstandard dependencies may be 
used. The program supports the use of start to start, 
and finish to finish relationships in addition to the 
standard finish to start dependency. In addition, 
each activity may depend upon up to nine other 
activities. If more than nine dependencies 
(predecessors) are identified, dummy activities may be 
used to bring the number into an acceptable range. 

A work calendar is also generated by the 
program. The typical work week is identified and any 
scheduled holidays are incorporated into this 
calendar . The calendar can be generated up through 
the year 2068 , well beyond any reasonable scheduling 
date . 

The program allows for user defined activity 
codes but it will provide them automatically if 
desired. Any alphanumeric combination i.e., letters 
and numerals, of up to nine characters is accepted. 

Resources can also be managed through this 
program. Up to ten resources per network or activity 
may be tracked and the resource rates may be 
identified by either a daily rate or a total amount. 
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Some other features of this program include the 
ability to update the schedule with respect to new 
data or the progress of the project. The program 
allows for various time scale adjustments on reports 
which can be used to simplify reports or to make them 
more detailed depending upon the use or the person 
targeted to receive that report. The program can also 
sort the output data by a group code. This allows for 
a report on only one subcontractor's work, or the work 
of a given trade, etc. This can be used in any way 
the user desires. 

This program will not level the resources. 
However, the manufacturer indicates that they will be 
coming out with a supplemental program called 
LevelTrak which will use the data files generated by 
MicroTrak to level the project resources. There is 
currently no additional data available on LevelTrak . 

5. 5. 1.2 Multi-Project Resource Planning 

To date, the MicroTrak program can not schedule a 
project based upon resource constraints for either one 
or several projects. The output generated is best 
suited to management of the project as scheduled by 
early start. The management can base their resource 
requirements upon the resource demand report 
generated. By having this they should be able to 
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resolve any conflicts or difficulties before the fact 
since all resource requirements are identified. 

At this time the capabilities of the proposed 
program LevelTrak are unknown. When the program 
becomes available an analysis of its capabilities, 
limitations, and suitability for any given situation 
would have to be analyzed. 

5.5.2 Pr imavera 

Throughout the industry Primavera is considered the 
Rolls Royce of scheduling programs. Although it is very 
versatile and has astounding capabilities far exceeding 
needs in most areas, its biggest weaknesses are its 
inherent complexity and the lack of simple graphic output. 
Examples of the output are shown in Appendix E. 

5. 5. 2.1 Characteristics, Capabilities, and 
Limitations 

The Primavera system is a menu driven system. 
There is a help screen which assists the user in 
determining the proper commands, but it is overall 
much more difficult to use than MicroTrak due to the 
sheer volume of information required to drive the 
system. The advantage of the menu system is that a 
user inexperienced with the system can enter or access 
information a little quicker. 

The number of activities which can be considered 
for scheduling for any given project is 9000. This is 
far more than even sophisticated construction firms 
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are likely to use. In addition, each of these 
activities may have up to ten dependencies. 

Each activity may have six different resources, 
and the project as a whole may have up to 96 different 
resources tracked and leveled. The leveling is 
performed in a combination of the two manual methods 
described earlier. The program will accept two input 
parameters for leveling. The first is a resource 
maximum upper limit and the second is the normal 
limit. The program will extend the duration to meet 
the maximum upper limit but will attempt to further 
level the project to the normal limit without further 
extension. All other aspects of the program i.e., 
updating, schedule changing, sorting, and time scale 
adjustments, are comparable with those described for 
MicroTrak . 

An overall impression of this program is that the 
person using it will require extensive training, both 
formal and informal, to use it effectively. To learn 
how to produce a few standard reports and documents 
may take only a few weeks of effort, but to learn to 
fully and effectively utilize this piece of software 
will take months of constant practice, and 'playing' 
with the system. A person using this program once a 
week will probably not be able to remain proficient at 
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it even if he had all the training and knowledge at 
one time. 

5. 5. 2. 2 Multi-Project Resource Planning 

Although Pr imavera is one of the state of the art 
programs on the market, it does not provide for 
resource planning or leveling of multiple projects. 
The version reviewed is P3 . Any newer versions are 
likely to incorporate this feature so they may remain 
competitive with products such as Open Plan which is 
to be discussed next. Currently the only multiple 
project option available with version P3 is for the 
scheduler to relate the leveling of concurrent 
projects. This can be done by starting with the 
earliest project in chronological sequence. Level the 
first project. Then place a resource limit on the 
second project equal to the remaining resources 
available during that overlap period. By doing this 
the total maximum limit of resources during any time 
period can be controlled, but the results are not 
optimum since leveling between projects does not take 
place. This solution, however, is far better than no 
solution at all. In general it will prove marginally 
satisfactory since the leveling of the projects 
themselves will tend to level the overall company 
resource demands, and achieving the most imperative 
aspect of leveling (remaining under the maximum limit 
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of resources) is possible although tedious and 
imperfect . 

5.5.3 Open Plan 

Open Plan is a program which uses the database 
language dBase III to maintain and control access to all 
the data files. As a result, the purchaser of Open Plan 
must also purchase a copy of dBase III if a copy is not 
already available. Examples of the various report formats 
available are shown in Appendix F. 

5 . 5 . 3 . 1 Characteristics, Capabilities, and 
Limitations 

The Open Plan manual provides minimal data on the 
program's limitations compared to what was provided in 
the other software packages. However, there are some 
differences which are apparent. 

This program has the added capability to use a 
start to finish dependency in addition to the start to 
start and finish to finish dependencies used in 
Pr imavera and MicroTrak . It is a nice addition to the 
system but this relationship is used very little in 
the construction industry. 

Open Plan is also menu driven which means that it 
is almost as easy to use as Pr imavera . The training 
time for this program as compared to Primavera is 
about the same. Its capabilities and complexity are 
similar so it is not reasonable to assume that an 
employee could become proficient with the program 



within a week. 



Resource management is also available in this 
package. The program can level a resource based upon 

a fixed time or it can schedule based upon a resource 
limit. The resource limit method allows the project 
duration to be extended, whereas the leveling method 
optimizes the resources within the project duration. 
The program also allows the project to be scheduled 
based upon the resource limitation and then, if 
desired, further optimized by using the leveling 
option. This option allows the scheduler significant 
freedom in determining just how he wishes to schedule 
his resources. It may be leveled, 'resource limit' 
scheduled, or a combination of both. 

5. 5. 3. 2 Multi-Project Resource Planning 
The program allows for the scheduling of multiple 
projects but the interaction is really rather 
limited. The method whereby the additional projects 
are scheduled is very much as described in the multi- 
project section of Primavera only in this case it is 
done with more ease, marginally better results, and 
with less chance of error. 

The procedure the program uses is as follows: 

1. The first project (or the project considered 
to have the highest priority) is scheduled based 
upon the resource constraints desired, if any. 
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2. The program then creates a temporary file 
which contains the resources left in the company 
pool, i.e. the difference between resources 
consumed by the project considered and the total 
amount of resources available. 

3. The next project, with respect to either 
priority or chronological order, is identified to 
the program as also needing scheduling based upon 
resource constraints. 

4. The computer will then schedule based upon 
the resource limit method and the resources 
available on a daily basis as found in step 2. 
Again the remaining daily resources are 
determined and placed in the temporary file. 

5. The process can then be continued by 
repeating steps 3 and 4 until all projects are 
scheduled . 

The process as described above will not give the 
best possible answer. The reason is that once a 
project is scheduled in the multi-project process the 
dates are fixed and the scheduling of further projects 
will not optimize those already scheduled. Using this 
method the scheduling may not give an acceptable 
answer when an acceptable answer is possible. Assume 
for instance that two projects are being considered. 
The first has one month until completion and it needs 
to use ten scrapers for two weeks anytime during that 
last month. Also assume that a second project needs 
ten scrapers for its first two weeks of work, and it 
is scheduled to start that same month. If the company 
has only ten scrapers available the program would 
delay the start of project two by 
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two weeks. This is not the best solution since the 
first project may have the scrapers scheduled for the 
last two weeks of the month and the second project 
could use the scrapers the first two weeks of the 
month. This schedule allows the contractor to start 
the second project as soon as possible and does not 
delay project one which is in progress. 

The developers of Open Plan describe a way for 
users to avoid this problem, but it takes extensive 
knowledge of dBase III to do it. The process is to 
combine all of the dBase project files into one 
massive integrated project file. This integrated 
project is then leveled as if it were the only project 
considered. Following leveling, the leveled 
integrated project file must be separated into 
individual projects again. This merging and 
separating is the problem which must be solved by the 
computer programer . For a person experienced in dBase 
III I am sure this would not be a difficult hurdle. 
It might even be possible to write a program which 
would perform the process whenever called upon. 

Since the authors of the program recognize the 
faults in the current multi-project planning method, 
and they even describe the solution in their manual, 
it is likely that there will be an automatic function 
or option which will perform the combining and 
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separating operations mentioned above in a future 
edition of Open Plan . 

5.5.4 MACPROJECT 

This program is written for the Macintosh computer. 
It is very easy to use as is typical with the user friendly 
menu driven systems which are predominant in Macintosh 
programs. Some typical examples of the program's output 
are shown in Appendix G. 

5.5.4. 1 Characteristics, Capabilities, and 
Limitations 

MacPro.ject is very easy to use as compared with 
most other commercial programs on the market. It is 
able to evaluate up to 2000 activities with six 

resources per activity and fifty resources per 

project. There are two major drawbacks however: the 

dependencies are limited to ' f inish-to-start ' and the 
resources are identified by name only with no 

reference to the number required. 

5.5.4. 2 Problems 

The problem with the dependencies can be 
partially solved by editing the schedule after it has 
been* calculated. A delay between the finish of one 

activity and the start of the next may be scheduled by 
forcing the start date of the following activity to a 
given date. For example if 'remove forms' was to 

follow 'place concrete' by two days, the schedule 
would be originally determined based upon a normal 
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dependency. The output would be analyzed to determine 
if the activity of removing forms followed placing the 
concrete by less than two days. If so, it would be 
forced into starting a couple of days later by 
specifying that it depends on a date, based on the 
original schedule determined, rather than another 
activity. Another method would be to place a two day 
dummy activity called 'wait' between 'remove forms' 
and 'place concrete'. This would have the same effect 
without having to run the program twice. 

The other drawback is the method used to account 
for resources. As indicated above, resources can be 
considered but there is no mechanism for specifying 
the number of units required. This can best be 
explained by example. In the programs discussed above 
the user could define a category called 'laborers'. 
He may use this category for most of his activities, 
but the number of laborers needed for each activity is 
likely to change. Suppose he requires four laborers 
for the first activity and ten laborers for the second 
activity. He tells the computer he needs laborers and 
indicates a requirement for four and ten 
respectively. In MacPro.ject the solution is not so 
simple. The resources will be listed by category 
only. If you have four laborers you may write "4 
Laborers" or you may enter laborers four times using 
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four of the six resource spaces available. If this is 
to stand alone the solution, though cumbersome, would 
be satisfactory, but as soon as we enter the second 
activity which needs ten laborers we have a problem. 
Listing laborer ten times is out of the question since 
the program will only accept six. In addition, 
entering "10 Laborers" is unsatisfactory since the 
program does not recognize its relationship with the 
"4 Laborers" used for activity one. The result can be 
quite confusing when trying to determine actual 
resource requirements. 

In addition to the difficulty in accounting for 
resources, the output is confusing, and not very 
practical. As can be seen in Appendix G, the output 
is organized by resource category. In the sample 
output, sitework is listed twice under the category of 
•laborer* and clean up is listed three times. This 
indicates that you need two laborers for sitework and 
three for clean up. There is not much of a problem 
here but it would be very confusing if more than six 
workers were needed for any given activity or if there 
were many activities which needed the same resource. 
The output would become quite cumbersome and difficult 
to handle very quickly. As it is, it is only useful 
for very simple projects and resource requirements. 
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5. 5. 4. 3 Multi-Project Resource Planning 



The program does not automatically resource level 
or optimize at all although it may help the user in 
leveling and optimizing by the traditional method 
described earlier. But even this is tedious to do 
since the resource output is so poorly formatted. 
Multiple project planning is not possible since, other 
than doing it manually, any attempt at resource 
leveling for any but the simplest of schedules is 
futile using this program. 

5.5.5 CPMREV 

This program has been rewritten numerous times over 
the last nine months. It started as a computational CPM 
program in the BASIC language, written by Robert D. Rotz, 
and has been rewritten and revised dozens of times since 
September 1986. Since this program was not written by a 
professional computer programer it does not have all of the 
exceptional capabilities of the higher priced packages but 
it shows that development of a software package, while not 
easy, is not impossible either. 

5.5.5. 1 Characteristics, Capabilities, and 
Limitations 

The program will schedule up to 100 activities 
providing early start, late start, early finish, late 
finish, total float, and identification of the 
critical path. The program also provides a bar chart 
of the schedule based upon the early start dates. 
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The output provided is in the form of five 
reports : 

1. A listing of the project activities, the 
daily costs, resource demands, and dependencies. 

2. A listing with the start and finish times 
for each activity plus the total costs for both 
the activities and the project. 

3. A bar chart schedule based upon early start 
dates . 

4. A histogram of the project resource demands 
based upon the early start schedule. 

5. A histogram of resource demands of multiple 
projects based upon their respective early start 
dates . 

All tables and graphs which are produced on the screen 
can be printed on an eighty column IBM compatible 
printer . 

The program will track up to five different 
resources for each activity and project. This means 
that up to five histograms of resource requirements 
can be produced for each project. This program, 
however, only provides an aggregation of the resources 
needed based upon early start dates and does not do 
any resource leveling or rescheduling based upon 
resource limitations. 

This program is very easy to use compared to 
those discussed earlier. Nearly anyone could learn to 
use the program in under an hour, and feel comfortable 
with all the features within a day. 
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Examples of the output for both single and 
multiple projects are shown in Appendix H, followed by 
a listing of the program. 

5. 5. 5. 2 Multi-Project Resource Planning 
The program has the capability to provide a 
listing and histogram of the aggregate resource sum 
from any number of projects. 

How the output is obtained can be explained best 
by describing the steps involved. The program first 
asks the user to identify from the available list 
which project is to be considered. Once this is done 
the program displays on the screen the resources 
identified for that project. The user then selects 
the appropriate resource from that list. The computer 
records the dates and resource demands , and asks the 
user if his is finished or if he wants to add another 
project resource from the list. He may add another 
resource from the same project or he may go to a 
different project and add a resource from there using 
the same steps used before. 

This option to add resources not only between 
projects but within projects can be useful to the 
planner involved. The total number of persons on the 
job may be of concern to the superintendent of the 
project. He may only have an output which shows 

individually how many carpenters, steelworkers. 
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masons, and painters are on the job, but not the sum 
total. The same analysis could be used for different 
types of equipment used on the same project. To take 
the setup one step farther, the program also has the 
capability to give an indication of how many tradesmen 
are employed by the company on any given day even if 
they are not broken out under a total manpower 
resource heading. The sums from each individual 
project can be found and added to the values of 
subsequent projects in the same way. 



59 



CHAPTER 6 
CONCLUSION 

Although there are many different approaches to 
resource planning for both single and multiple projects, 
construction firms need to recognize the importance of 
resource management and find an acceptable means to control 
their costs in this area. The scheduling and resource 
management methods discussed in this paper need to be an 
integral part of that control and should be incorporated 
into the companies comprehensive resource control plan. 
Regardless of the method used, the computer and its 
associated software is ideally suited for the task of 
resource management thorough scheduling. The time required 
by schedulers and planners to update and modify schedules 
IS greatly reduced through their use. 

Of the programs evaluated here, the best overall 
manager of resources was Open Plan . Although the 
difficulty level is relatively high for this program, any 
construction companies which have at least one or two full 
time schedulers and planners would not go wrong to invest 
in a similar system. Small companies should look at 
available software in addition to what has been described 
here to find a program which is easier to use, and has at 
least some of the resource aggregation functions, such as 
MicroTrak . Optimally, it should have resource leveling 
capabilities as well. 
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The day that multiple project resource leveling 
becomes more the norm rather than the exception is coming 
but it is not here yet. Right now there are very few 
programs which can effectively handle multiple projects. 
Open Plan is one of the first to open that door and even 
they have not committed themselves to its full development. 

Resource planning is just now becoming a common focus 
of computer software. In the next few years the trend is 
likely to continue as demand for such software rises. The 
result will be better resource management tools via 
computers and, ultimately, more efficient and less complex 
multi-project resource planning. 
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APPENDIX A 

RESOURCE RATE DISTRIBUTION 



taken from 

Robert B. Harris, Precedence and Arrow Networking 
Techniques for Construction, John Wiley and Sons, Inc., 
New York, 1978, p.156. 
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. 1 Typical resource rate variation. 
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APPENDIX 



TT*AE>T TI OISIAIL 

LEVELING APPROACH EXAMPLE 



taken from 

Robert B. Harris, Precedence and Arrow Networking 
Techniques for Construction, John Wiley and Sons, Inc., 
New York, 1978, chap. 11. 
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Ficj. B.l Precedence diagram. 



Early Start Schedule Information 



Activity 


T 


ESD 


EFD 


TF 


FF 


Res 

Rate 


Res 

Days 


A* 


4 


0 


4 


0 




2 


8 


B 


2 


0 


2 


7 


6 


2 


4 


C 


2 


4 


6 


4 


4 


4 


8 


D* 


4 


4 


8 


0 




6 


24 


E 


1 


8 


9 


1 


1 


1 


1 


F* 


2 


8 


' 10 


0 




2 


4 



Total 49 



* Critical. 



Fig. B.2 Schedule information chart. 
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Days 



Step 



10 



A - 2 



B — 2 



D - 6 



F - 2 



C - 4 



E - 1 



£0 

0*1 

11 
Ol 

12 
0*1 

13 
Ol 

14 
E-1 

15 
E-1 

16 



10 

-4 



10 

FF 

-4 



6 

+4 

10 

10 

-4 



-Total = 49 



+4 

10 

“7F 

—4 
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+4 



7 

-1 
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+4 

— F 

+i 

7 

-1 



+ 1 



Fi a . B. 3 Leveling bar chart - traditional approach. 



At line 15 




5 6 7 8 

Project days 



10 11 



Fipj . B.4 Resource histogram. 
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MINIMUM MOMENT 
LEVELING APPROACH EXAMPLE 



taken from 

Robert B. Harris, Precedence and Arrow Networking 
Techniques for Construction, John Wiley and Sons, Inc., 
New York, 1978, chap. 11. 
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MINIMUM MOMENT PROCEDURES 



Setup 

A. Prepare an arrow or precedence network of the 
project and determine the sequence step number for 
each activity. 

B. Prepare a link matrix and compute the ESD and EFD 
for each activity. Compute the lags for each 
link, Determine the total float for each activity 
and identify the critical path. 

C. Select a resource to be leveled. 

D. Determine the amount of the selected resource 
which is required per day for each network 
activity. Call this required resource rate, "r." 

E. Prepare a bar chart showing the early start time 
for each activity and its duration. Plot critical 
activities first, followed by noncritical 
activities . 

F. For each day of the project, total the resource 
rates at the foot of the bar chart to obtain the 
daily resource sums. 

Procedure 

The procedure begins with the activities on the last 

sequence step. 

1. Examine the activities on the sequence step. 

(a) Every activity an the sequence step having 
zero free float is passed over. 

(b) Every activity on the sequence step having a 
zero resource rate is shifted to the limit 
of the activity free float to allow 
preceding activities to be shifted. 

(c) For each activity on the sequence step 
having a positive resource rate, determine 
the extent of its free float and compute 
improvement factors for all possible days 
that the activity can be shifted until the 
free float limit is reached. 

2. Select the activity having the largest improvement 
factor determined in algorithm step 1(c). 
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(a) If the largest improvement factor is 
negative, no shifting takes place. Go to 
the next sequence step and examine the 
activities as in algorithm step 1. 

(b) If there is a tie in the value of the 
largest improvement factor for several 
activities : 

i. select the activity with the greatest 
"r" value. 

ii. If still tied, select the activity 
with the greatest free float for 
preceding activities. 

iii. If still tied, select the activity 
with the latest start date. 

iv. If still tied, select the activity 
with the first activity in the queue 

3. Shift the selected activity subject to the 
following: 

(a) If the largest improvement factor is zero or 
positive, shift the selected activity by 
subtracting the activity resource rate from 
each of the daily resource sums at the 
position being vacated and adding this same 
rate to each of the daily resource sums at 
the position being occupied. 

(b) If there is a tie in the value of the 
improvement factor at several of the 
possible activity positions, shift the 
activity the greatest number of time units. 

4. If shifting has occurred in algorithm step 3, 
update the lags, ESD and EFD , in the link matrix. 

5. Reexamine the activities on the sequence step and 
repeat algorithm steps 1 through 4 until all 
shifting is complete on this step. 

6. Examine the next earlier sequence step an repeat 
algorithm steps 1 through 5. Continue in this 
manner until all activities have been considered 
and all possible shifting has taken place on every 
sequence step. 
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7. Repeat algorithm steps 1 through 6 until no 
further shifting takes palace. This is the end of 
the forward cycle. 

8. Beginning with the first sequence step, using back 
float instead of free float, and progressing to 
the next latest sequence step instead of to the 
next earliest sequence step, repeat algorithm 
steps 1 through 7 until all activities have been 
considered and shifted, where possible, to an 
earlier time position. This is the end of the 
backward cycle and completes the leveling. 
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Sequence Step Numbers Computed for an Arrow Network 



/* 
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ACT 


Seq. 
Step 
- Value 


Start 

Step 

No. 


End 

Step 

No. 


1 


2 


A 


1 


1 + 


2 


1 


4 


B 


1 


1 


2 


2 


5 


C 


1 


2 


3 


2 


3 


D 


1 


2 


3 


3 


4 


Dummy 


0 
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3 


3 


5 


F 


1 


3 


4 
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E 
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4 



{ Sequence 

step numbers 



Fiq. C.l Sequence step chart. 



J Activity 




FI;.,. C.2 Matrix before leveling. 
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J Activity 




J Activity 




69 



Days 




Fig. C. 5 Leveling bar chart - minimum moment. 
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APPENDIX D 

SAMPT.F. OUTPUT FROM 
MICROTRAK 
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HEDULE: DEMO OF MICROTRAK BASE DATE = 100CT83 

N DATE = 02MAY83 Rev 1 MICROTRAK DATA DATE = 

TIVITY-WITHIN-RESOURCE CUT OFF DATE = 



ACTIVITY RESOURCE DOLLARS 

MBER DESCRIPTION DURATION DAILY TOTAL DAY TOTAL 



.SOURCE 1 = CARPENTERS 



build forms 
set forms 



7 4 28 0 0 

2 12 0 0 



TOTAL 

SOURCE 2 = STEEL WORKERS 

pre-bend re-steel 
set re-stee 1 

TOTAL 

ISOURCE 3 = LABORERS 

i 

build forms 
pre-bend re-steel 
excavate 
set forms 
set re-stee 1 
place concrete 

TOTAL 



30 



0 



4 4 16 0 

3 4 12 0 



0 

0 



28 



0 



7 8 56 

4 4 16 

8 8 64 

2 4 8 

3 8 24 

16 6 



0 

0 

0 

0 

0 

0 



0 

0 

0 

0 

0 

0 



174 



0 
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CHEDULE: DEMO OF MICROTRAK BASE DATE = 100CT83 

UN DATE = 02MAY83 Rev 1 MICROTRAK DATA DATE = 

ESOURCE-WITHIN-ACTIVITY CUT OFF DATE = 



ACTIVITY 

UMBER DESCRIPTION 



0 build forms 

CARPENTERS 

LABORERS 

TOTAL 

0 pre-bend re-steel 

STEEL WORKERS 
LABORERS 

TOTAL 

•3 excavate 

LABORERS 

TOTAL 

set forms 

CARPENTERS 

LABORERS 

TOTAL 

O set re-steel 

STEEL WORKERS 
LABORERS 

TOTAL 

') place concrete 

LABORERS 

TOTAL 



RESOURCE 




--- DOLLARS 


DURATION 


DAILY 


TOTAL 


DAY 


TOTAL 


7 


4 


28 


0 


0 


7 


8 


56 


0 


0 






84 




C 


4 


4 


16 


0 


c 


4 


4 


16 


0 


c 






32 




c 


8 


8 


64 


0 


t 






64 




c 


2 


1 


2 


0 


c 


2 


4 


8 


0 


f 






10 




c 


3 


4 


12 


0 


c 


3 


8 


24 


0 


c 






36 




( 


1 


6 


6 


0 


c 






6 




( 
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CHEDULE: DEMO OF MICROTRAK 



BASE DATE 



= 100CT8C 



i = 02MAY83 Rev 1 




MICROTRAK 


DATA 


. DATE 


= . , 




REPORT by EARLY START 








CUT 


OFF DATE 


- . . 




IVITY 


DAYS 


START 




FINISH 


FREE 


TOTAL 


DESCRIPTION 


LEFT 


EARLY 


LATE 


EARLY 


LATE FLOAT 


FLOAT 


move in 


2 


100CT83 


100CT83 


110CT83 


110CT83 


0 


0 


excavate 


8 


120CT83 


120CT83 


210CT83 


210CT83 


0 


0 


pre-bend re-steel 


4 


120CT83 


180CT83 


170CT83 


210CT83 


4 


4 


build forms 


7 


120CT83 


140CT83 


200CT83 


240CT83 


1 


2 


set re-steel 


3 


240CT83 


240CT83 


260CT83 


260CT83 


0 


0 


set forms 


2 


240CT83 


250CT83 


250CT83 


260CT83 


1 


1 


place concrete 


1 


270CT83 


270CT83 


270CT83 


270CT83 


0 


0 



“3ER 
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ilEDULE : DEMO OF MICROTRAK 

|! DATE = 02MAY83 Rev 1 
IE SCALE REPORT by EARLY START 



MICROTRAK 



BASE DATE 
DATA DATE 
CUT OFF DATE 



100CT83 



Act ivity 

ber Description 


1983 OCT 
10 


17 


24 31 


NOV 

07 


14 


21 


28 


move in 


= > 


. 


. 










excavate 


| >- 




* = > . 










pre-bend re-steel 


1 > ~ 


“> . , 


, . > . 










build forms 


1 >“ 




>> . 










set re-steel 


1 


. 


> = > 










set forms 


1 


. 


->> 










place concrete 


1 


♦ 


= . 

















DEC 

05 
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100CT83 



CHEDULE: DEMO OF MICROTRAK BASE DATE 

IJN DATE = 02MAY83 Rev 1 MICROTRAK DATA DATE 

:[ME SCALE REPORT by EARLY START CUT OFF DATE = 



Activity 

Mmber Description 



1983 OCT 

10 11 12 13 14 17 18 19 20 



1) move in > 
4) excavate | 

2) pre-bend re-steel j 
2 ) build forms | 
Ei set re-steel | 
El set forms | 
9 1 place concrete | 






AVERAGE DAILY RESOURCE 



CARPENTERS 0 

STEEL WORKERS 0 

LABORERS 0 

TOTAL RESOURCE 0 

RESOURCE COST ( K $ ) 0 

DIRECT COST ( K $ ) 0 

TOTAL COST ( K $ ) 0 



0 

0 

0 

0 



4 

4 

20 

28 



4 

4 

20 

28 



4 

4 

20 

28 



4 

4 

20 

28 



4 

0 

16 

20 



4 

0 

16 

20 



4 

0 

16 

20 



0 0 0 0 0 
0 0 0 0 0 



0 0 
0 0 



0 

0 



0 0 0 0 0 



0 0 



0 



I 
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HEDULE: DEMO OF MICROTRAK 

N DATE = 02MAY83 Rev 1 
ME SCALE REPORT by EARLY START 



MICROTRAK 



BASE DATE 
DATA DATE 
CUT OFF DATE = 



= 1 0 OCT 8 3 



Activity 

iber Description 



1983 



OCT 

21 



24 



25 



26 



27 



28 



31 



NOV 

01 



02 



move in 
excavate 

pre-bend re-steel 
build forms 
set re-steel 
set forms 
place concrete 



=====> 

> 

>....> 

> 



> . 






AVERAGE DAILY RESOURCE 

CARPENTERS 011000000 

STEEL WORKERS 044400000 

LABORERS 8 12 12 860000 

TOTAL RESOURCE 8 17 17 12 6 0 0 0 0 



RESOURCE COST (K$) 
DIRECT COST ( K $ ) 



0 

0 



0 

0 



0 

0 



0 

0 



0 

0 



0 

0 



0 

0 



0 

0 



0 

0 



TOTAL COST ( K $ ) 



0 



0 



0 



0 
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APPENDIX E 

SAMPLE OUTPUT FROM 
PRIMAVERA 
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PRIMAVERA PROJECT PLANNER 
Summary of Available Reports 



Page 



Series 

A~ 



Ref . No . 
SR-01 


Demo 


SR-02 


Demo 


SR-04 


Demo 


SR-05 


Demo 


SR-06 


Demo 


SR-07 


Demo 


BC-02 


Demo 


BC-03 


Demo 


BC-04 


Demo 


NL-01 


Demo 


RC-01 


Demo 


RT-01 


Demo 


RU-01 


Demo 


RR-01 


Demo 


CC-01 


Demo 


CC-02 


Demo 


CT-01 


Demo 


CE-0 1 


Demo 


CU-01 


Demo 


CR--0 1 


Demo 


RP-01 


Samp 1 


CP-0 1 


Samp 1 


SR-03 


Demo 


SR-08 


Demo 


RU-02 


PROFI 



_Re £0 rt_T i^t l_e_ 



TF 

ES 



TF 



me bar) by ES, TF 
2 bars ) by ES , TF 
1 bar) skip by 1st code 
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jerican Community Developers, Inc. PRIMAVERA PROJECT PLANNER Multi Family Housing Project 

| PORT DATE 23MAY87 RUN NO. 14 NETWORK PATH ANALYSIS START DATE 13DEC82 FIN DATE 6SEP84 

101 Demo Network Logic Rep for Critical Path DATA DATE 1FE883 PAGE NO. 1 

XXXXXXXXXXXXXXXXXXXXXX 
X X 

X X 

[X X 

X NO PREDECESSORS X > 

X X I 



XXXXXXXXXXXXXXXXXXXXXX 



TOTAL 

: LOAT 

-20 






V 

XXXXXXXXXXXXXXXXXXXXXX 


XXXXXXXXXXXXXXXXXXXXXX 


XXXXXXXXXXXXXXXXXXXXXX 


XXXXXXXXXXXXXXXXXXXXXX 


X ACT NO. 




1 X 


X ACT NO. 3 X 


X ACT NO. 5 


X 


X ACT NO. 


7 X 


X 




X 


X X 


X 


X 


X 


X 


X LAYOUT 




X 


X SOIL STABILIZATI X 


X PLUMBING-STREET 


X 


X FOUNDATION 


EXCAV X 


X 




X— 


>X ON X 


— >X CONNECTION AND U 


X— - 


— >X AT I ON 


X- 


X 




X 


X X 


X NDERSLAB 


X 


X 


X 


X 




X 


X X 


X 


X 


X 


X 


XOD 5 RD 


0 


PCT100X 


XOD 15 RD 0 PCT100X 


XOD 8 RD 3 PCT 


62X 


XOD 5 RD 2 


PCT 60X 


XXXXXXXXXXXXXXXXXXXXXX 


XXXXXXXXXXXXXXXXXXXXXX 


XXXXXXXXXXXXXXXXXXXXXX 


XXXXXXXXXXXXXXXXXXXXXX 


ES 14DEC82A 


EF 


22DEC82A 


ES 28DEC82A EF 20JAN83A 


ES 24JAN83A EF 3FEB83 


ES A EF 


7FEB83 



XXXXXXXXXXXXXXXXXXXXXX 
X ACT NO. 9 X 

X X 

OTAL X GRANULAR FILL X 

: LOAT X X- 

-20 X X 

X X 

XOD 7 RD 7 PCT OX 

XXXXXXXXXXXXXXXXXXXXXX 
ES 8FEB83 EF 16FE883 



XXXXXXXXXXXXXXXXXXXXXX 
X ACT NO. 13 X 

X X 

X TERMITE PROTECTI X 

->X ON X— 

X X 

X X 

XOD 13 RD 13 PCT OX 
XXXXXXXXXXXXXXXXXXXXXX 
ES 17FEB83 EF 8MAR83 



XXXXXXXXXXXXXXXXXXXXXX 
X ACT NO. 22 X 

X X 

X CONCRETE SLAB ON X 
->X GRADE X- 

X X 

X X 

XOD 5 RD 5 PCT OX 
XXXXXXXXXXXXXXXXXXXXXX 
ES 9MAR83 EF 15MAR83 



XXXXXXXXXXXXXXXXXXXXXX 
X ACT NO. 24 X 

X X 

X CURING TIME X 
->X X- 

X X 

X X 

XOD 13 RD 13 PCT OX 
XXXXXXXXXXXXXXXXXXXXXX 
ES 16MAR83 EF 1APR83 









'OTAL 

LOAT 

-20 



V 

XXXXXXXXXXXXXXXXXXXXXX 



X ACT NO. 26 X 

X X 

X SET PRECAST CONC X S 

X. RETE PANELS X— 

x' X 

X X 

XOD 10 RD 10 PCT OX 



XXXXXXXXXXXXXXXXXXXXXX 
ES 4APR83 EF 15APR83 



XXXXXXXXXXXXXXXXXXXXXX 



X ACT NO. 27 X 

X X 

5 X GROUT PRECAST PA X 

~>X NELS X- 

X X 

X X 



XOD 6 RD 6 PCT OX 
XXXXXXXXXXXXXXXXXXXXXX 
ES 11APR83 EF 18APR83 



XXXXXXXXXXXXXXXXXXXXXX 



X ACT NO. 30 X 

X X 

X INSTALL METAL ST X 

>X AIRS X' 

X X 

X X 



XOD 50 RD 50 PCT OX 
XXXXXXXXXXXXXXXXXXXXXX 
ES 19APR83 EF 28JUN83 



XXXXXXXXXXXXXXXXXXXXXX 
X ACT NO. 32 X 
X X 
X PLATES, LINTELS, X 

>X AND ROOF TRUSSE X > 

X S X 
X X 
XOD 23 RD 23 PCT OX 
XXXXXXXXXXXXXXXXXXXXXX 
ES 29JUN83 EF 1AUG83 



V 
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Mrican Community Developers, Inc. PRIMAVERA PROJECT PLANNER Multi Family Housing Project 
!EDRT DATE 23MAY87 RUN NO. 14 NETWORK PATH ANALYSIS START OATE 13DEC82 FIN DATE 
111 Demo Network Logic Rep for Critical Path DATA DATE 1FE883 PAGE NO. 



OTAL 

(LOAT 

K -20 



xxxxxxxxxxxxxxxxxxxxxx 

X ACT NO. 34 X 

X X 

X REOWOOO FASCIA.S X 
X OFFIT AND PLYWOO X- 
X D DECKING X 

X X 

XOD 20 RD 20 PCT OX 
XXXXXXXXXXXXXXXXXXXXXX 
ES 2AUG83 EF 29AUG83 



XXXXXXXXXXXXXXXXXXXXXX 



X ACT NO. 41 X 

X X 

X DRY SHEETING X 

— >X X- 

X X 

X X 



XOD 5 RD 5 PCT OX 
XXXXXXXXXXXXXXXXXXXXXX 
ES 30AUG83 EF 5SEP83 



XXXXXXXXXXXXXXXXXXXXXX 
X ACT NO. 43 X 

X 
X 

X- 
X 
X 

1 PCT 62X 



X 
X 
>X 
X 
X 

XOD 



STOCK 8ULK MATER 
IAL INSIDE BUILD 
ING 



4 RD 



XXXXXXXXXXXXXXXXXXXXXX 
ES A EF 6SEP83 



XXXXXXXXXXXXXXXXXXXXXX 



X ACT NO. 45 X 

X X 

X SET INFILL PANEL X 

— >X FRAMING X- 

X X 

X X 



XOD 3 RD 3 PCT OX 
XXXXXXXXXXXXXXXXXXXXXX 
ES 7SEP83 EF 9SEP83 



V 





XXXXXXXXXXXXXXXXXXXXXX 


XXXXXXXXXXXXXXXXXXXXXX 


XXXXXXXXXXXXXXXXXXXXXX 




X ACT NO. 


47 X 


X ACT NO. 


49 X 


X ACT NO. 66 X 




X 


X 


X 


X 


X X 


OTAL 


X WINDOWS 


X 


X WOOD SIDING 


X 


X WALL INSULATION X 


.OAT 


X 


X 


— >X 


X 


• — >X X- 


-20 


X 


X 


X 


X 


X X 




X 


X 


X 


X 


X X 




XOD 0 RD 


0 PCT OX 


XOD 0 RD 0 


PCT OX 


XOD 0 RD 0 PCT OX 




XXXXXXXXXXXXXXXXXXXXXX 


XXXXXXXXXXXXXXXXXXXXXX 


XXXXXXXXXXXXXXXXXXXXXX 




ES 13SEP83 


EF 19SEP83 


ES 20SEP83 EF 29SEP83 


ES 30SEP83* EF 60CT83* 



V 

I XXXXXXXXXXXXXXXXXXXXXX 



X ACT NO. 68 X 

X X 

S 3 X EXTERIOR RAILING X 

>x s X 

TO X X 

TF 172 X X 

XOD 6 RD 6 PCT OX 



XXXXXXXXXXXXXXXXXXXXXX 
ES 50CT83 EF 120CT83 



XXXXXXXXXXXXXXXXXXXXXX 



X ACT NO. 70 X 

X X 

X SHEETROCK WALLS X 

>X x 

TO X X 

TF -13 X X 



XOD 25 RD 25 PCT OX 
XXXXXXXXXXXXXXXXXXXXXX 
ES 70CT83 EF 10NOV83 8 1 



6SEP84 

2 



Rrican Community Developers, Inc. PRIMAVERA PROJECT PLANNER Multi Family Housing Project 
EDRT DATE 23MAY87 RUN NO. 14 NETWORK PATH ANALYSIS START DATE 13DEC82 FIN DATE 
LI Demo Network Logic Rep for Critical Path DATA DATE 1FEB83 PAGE NO. 



| XXXXXXXXXXXXXXXXXXXXXX 

j X ACT NO. 67 X 

j X X 

| S 2 X CONCRETE STAIRS X 

| > X X 

TO X X 

TF 174 X X 

XOD 5 RD 5 PCT OX 
XXXXXXXXXXXXXXXXXXXXXX 
ES 40CT83 EF 10OCT83 






6SEP84 

3 
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rican Community Oevelopers, Inc. PRIMAVERA PROJECT PLANNER Multi Family Housing Project 

ORT DATE 23MAY87 RUN NO. 14 NETWORK PATH ANALYSIS START DATE 130EC82 FIN OATE 

1 Demo Network Logic Rep for Critical Path DATA OATE 1FE883 PAGE NO. 

XXXXXXXXXXXXXXXXXXXXX 
ACT NO. 24 X 

X 
X 

CURING TIME X 

x > 

X FROM | 

X TF -20 | 

)D 13 RO 13 PCT OX | 

(XXXXXXXXXXXXXXXXXXXX | 

> 16MAR83 EF 1APR83 



V 

XXXXXXXXXXXXXXXXXXXXXX 
X ACT NO. 26 X 

X X 

'TAL X SET PRECAST CONC X 

OAT X RETERETERETERETE X > 

-20 X X 

X X 

XOO 10 RD 10 PCT OX 
XXXXXXXXXXXXXXXXXXXXXX 
ES 4APR83 EF 15APR83 



XXXXXXXXXXXXXXXXXXXXXX 



X ACT NO. 27 X 

X X 

S 5 X GROUT PRECAST PA X 

>X NELS X 

TO X X 

TF -20 X X 



XOO 6 RO 6 PCT OX 
XXXXXXXXXXXXXXXXXXXXXX 
ES 11APR83 EF 18APR83 



XXXXXXXXXXXXXXXXXXXXXX 



X ACT NO. 30 X 

X X 

X INSTALL METAL ST X 

>X AIRS X 

TO X X 

TF -20 X X 

XOO 50 R0 50 PCT OX 



XXXXXXXXXXXXXXXXXXXXXX 
ES 19APR83 EF 28JUN83 83 



6SEP84 

4 



utrican Community Developers, Inc. PRIMAVERA PROJECT PLANNER Multi Family Housing Project 
!E0RT DATE 23MAY87 RUN NO. 14 NETWORK PATH ANALYSIS START OATE 130EC82 FIN DATE 
m Demo Network Logic Rep for Critical Path DATA OATE 1FEB83 PAGE NO. 



xxxxxxxxxxxxxxxxxxxxxx 

X ACT NO. 50 X 
X X 
X FRAME INTERIOR W X 



TO 

TF 56 



>X ALLS X 
X X 
X X 
XOD 20 RD 20 PCT OX 
XXXXXXXXXXXXXXXXXXXXXX 
ES 19APR83 EF 16MAY83 



6SEP84 

5 



84 



i-ican Community Developers, Inc. 



PRIMAVERA PROJECT PLANNER 
NETWORK PATH ANALYSIS 



Multi Family Housing Project 
START DATE 13DEC82 FIN DATE 6SEP84 
DATA DATE 1FEB83 PAGE NO. 6 



E)RT DATE 23MAY87 RUN NO. 14 

II Demo Network Logic Rep for Critical Path 



(XXXXXXXXXXXXXXXXXXXX 
ACT NO. 41 X 



X 

X 



DRY SHEETING X 



X — 



X FROM 
X TF -20 

ID 5 RD 5 PCT OX 
(XXXXXXXXXXXXXXXXXXXX 
30AUG83 EF 5SEP83 

((XXXXXXXXXXXXXXXXXXXX 
ACT NO. 52 X 

X 

INSTALL TUB, STA X 

CK OUT PLUMBING X > 

X FROM 
X TF 56 

D 4 RD 4 PCT OX 
XXXXXXXXXXXXXXXXXXXX 
I 17MAY83 EF 20MAY83 



TAI X ROOF SHINGLES X 



XOD 15 RD 15 PCT OX 
XXXXXXXXXXXXXXXXXXXXXX 
ES 6SEP83 EF 27SEP83* 



V 

XXXXXXXXXXXXXXXXXXXXXX 



X ACT NO. 
X 



58 X 
X 




X 

X 

X 



X 

X 



V 



XXXXXXXXXXXXXXXXXXXXXX 
X ACT NO. 66 X 



X 

X WALL INSULATION 



X 

X 



>X 

TO X 
TF -20 X 



X 

X 

X 



XOD 5 RD 5 PCT OX 
XXXXXXXXXXXXXXXXXXXXXX 
ES 30SEP83* EF 60CT83* 
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nican Community Developers, Inc. PRIMAVERA PROJECT PLANNER Multi Family Housing Project 

3RT DATE 23MAY87 RUN NO. 14 NETWORK PATH ANALYSIS START DATE 13DEC82 FIN DATE 6SEP84 

Jt Demo Network Logic Rep for Critical Path DATA DATE 1FE883 PAGE NO. 7 

JXXXXXXXXXXXXXXXXXXXX 
)ACT NO. 9 X 

X 
X 

) GRANULAR FILL X 

X > 

X FROM I 

X TF -20 | 

)D 7 RD 7 PCT OX | 

kxxxxxxxxxxxxxxxxxxx | 

£ 8FE883 EF 16FE883 I 



V 

xxxxxxxxxxxxxxxxxxxxxx 

X ACT NO. 12 X 

X X 

UAL X UNDERSLA8 ELECTR X 

FOAT X ICALICALICALICAL X 

*14 X X 

X X 

XOD 7 RD 7 PCT OX 
XXXXXXXXXXXXXXXXXXXXXX 
ES 17FE883 EF 28FE883 



XXXXXXXXXXXXXXXXXXXXXX 
X ACT NO. 22 X 

X X 

X CONCRETE SLAB ON X 

— >X GRADE X 

TO X X 

TF -20 X X 

XOD 5 RD 5 PCT OX 

XXXXXXXXXXXXXXXXXXXXXX 
ES 9MAR83 EF 15MAR83 
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J 

» : can Community Oevel opens, Inc. 

DATE 23MAY87 RUN NO. 14 
Demo Network Logic Rep for Critical Path 



CXXXXXXXXXXXXXXXXXXX 



IXT NO. 
( 



66 



I 

( WALL INSULATION 






X 
X 
X 
X 

! X— 

X FROM 
X TF -20 

(I 5 RO 5 PCT OX 
;; xxxxxxxxxxxxxxxxxxx 
•130SEP83* EF 60CT83* 



PRIHAVERA PROJECT PLANNER 
NETWORK PATH ANALYSIS 



Multi Family Housing Project 
START DATE 13DEC82 FIN DATE 6SEP84 
DATA DATE 1FE883 PAGE NO. 8 



(AL 

TAT 

13 



xxxxxxxxxxxxxxxxxxxxxx 



ACT NO. 



70 



SHEETROCK WALLS 



X 

X 

X 

X- 

X 

X 

OX 



XOD 25 RD 25 PCT 
XXXXXXXXXXXXXXXXXXXXXX 
ES 70CT83 EF 10NOV83 



XXXXXXXXXXXXXXXXXXXXXX 



X ACT NO. 72 X 

X X 

X TAPE AND BED X F 

~>X X— 

X X 

X X 



XOD 20 RD 20 PCT OX 
XXXXXXXXXXXXXXXXXXXXXX 
ES 11NOV83 EF 90EC83 



XXXXXXXXXXXXXXXXXXXXXX 
X ACT NO. 76 X 

X X 

5 X FUR DOWN FOR CEI X 

— >X LING AIR CONDITI X- 
X ONER X 

X X 

XOO 5 RD 5 PCT OX 

XXXXXXXXXXXXXXXXXXXXXX 
ES 120EC83 EF 16DEC83 



XXXXXXXXXXXXXXXXXXXXXX 



X ACT NO. 78 X 

X X 

X A/C ROUGH IN X 

->X X- 

X X 

X X 



XOD 10 RO 10 PCT OX 
XXXXXXXXXXXXXXXXXXXXXX 
ES 19DEC83 EF 3JAN84 



> 



XXXXXXXXXXXXXXXXXXXXXX 
X ACT NO. 80 X 

X X 

CAL X SHEETROCK FUR 00 X 

l AT X WNS X- 

13 X X 

X X 

XOD 4 RD 4 PCT OX 

XXXXXXXXXXXXXXXXXXXXXX 
ES 4JAN84 EF 9JAN84 



XXXXXXXXXXXXXXXXXXXXXX 
X ACT NO. 87 X 

X X 

X TAPE AND BED FUR X 

->X DOWNS X— 

X X 

X X 

XOD 15 RD 15 PCT OX 
XXXXXXXXXXXXXXXXXXXXXX 
ES 10JAN84 EF 30JAN84 



XXXXXXXXXXXXXXXXXXXXXX 
X ACT NO. 89 X 

X X 

X TEXTURE WALLS AN X 

->X D CEILINGS X- 

X X 

X X 

XOO 13 RD 13 PCT OX 

XXXXXXXXXXXXXXXXXXXXXX 
ES 31JAN84 EF 16FEB84 



XXXXXXXXXXXXXXXXXXXXXX 
X ACT NO. 93 X 

X X 

X DOORS ANO TRIM X 

->X X- 

X X 

X X 

XOO 10 RO 10 PCT OX 

XXXXXXXXXXXXXXXXXXXXXX 
ES 17FEB84 EF 1MAR84 



V 

XXXXXXXXXXXXXXXXXXXXXX 



X ACT NO. 95 X 

X X 

CAL X PAINTING X 

I AT X X 

13 X X 

X X 



XOO 20 RD 20 PCT OX 
XXXXXXXXXXXXXXXXXXXXXX 
ES 2MAR84 EF 29MAR84 



XXXXXXXXXXXXXXXXXXXXXX 
X ACT NO. 100 X 
X X 
X VINYL WALL COVER X 
>X ING ' X' 
X X 
X X 
XOD 8 RD 8 PCT OX 
XXXXXXXXXXXXXXXXXXXXXX 
ES 30MAR84 EF 10APR84 



XXXXXXXXXXXXXXXXXXXXXX 



X ACT NO. 107 X 
X X 

X CLEAN UP X 

>X X 

X X 

X X 



XOD 5 RD 5 PCT OX 
XXXXXXXXXXXXXXXXXXXXXX 
ES 11APR84 EF 17APR84 



XXXXXXXXXXXXXXXXXXXXXX 
X ACT NO. 109 X 
X X 
X RESILIENT FLOORI X 
>X NG ANO 8ASES X 
X X 
X X 
XOO 10 RO 10 PCT OX 
XXXXXXXXXXXXXXXXXXXXXX 
ES 18APR84 EF 1MAY84 



> 



ft 7 



V 



ban Community Developers, Inc. 

Cl DATE 23HAY87 RUN NO. 14 

Demo Network Logic Rep for Critical Path 

XXXXXXXXXXXXXXXXXXXXXX 
X ACT NO. 115 X 
X X 

1\L X INSTALL CA8INETS X 

|lT X X > 

113 X X | 

X X I 

XOD 13 RD 13 PCT OX | 

XXXXXXXXXXXXXXXXXXXXXX | 

ES 2HAY84 EF 18MAY84* I 



I 



PRIMAVERA PROJECT PLANNER 
NETWORK PATH ANALYSIS 



Multi Family Housing Project 
START DATE 13DEC82 FIN DATE 
DATA OATE 1FE883 PAGE NO. 



TO 



TF 



XXXXXXXXXXXXXXXXXXXXXX 
X ACT NO. 117 X 

X X 

X SET APPLIANCES X 

->X X 

X X 

X X 

XOD 5 RD 5 PCT OX 

XXXXXXXXXXXXXXXXXXXXXX 
ES 21MAY84 EF 25MAY84* 



XXXXXXXXXXXXXXXXXXXXXX 



X ACT NO. 118 X 

X X 

X PLUM8ING CONNECT X 

>X IONS AND TRIMOUT X 

TO X X 

TF -3 X X 

XOD 13 RD 13 PCT OX 



XXXXXXXXXXXXXXXXXXXXXX 
ES 21MAY84 EF 6JUN84* 



6SEP84 

9 



88 



*an Community Developers, Inc. 
* DATE 23MAY87 RUN NO. 14 



l 



PRIMAVERA PROJECT PLANNER 
NETWORK PATH ANALYSIS 



Multi Family Housing Project 
START DATE 13DEC82 FIN DATE 6SEP84 
DATA DATE 1FE883 PAGE NO. 10 



emo Network Logic Rep for Critical Path 




AT NO. 



X 

X 

X 

X 



pANULAR FILL 



X FROM 
X TF -20 



0 7 RD 7 PCT OX 
|XXXXXXXXXXXXXXXXX 
1FE883 EF 16FE883 



V 

xxxxxxxxxxxxxxxxxxxxxx 

X ACT NO. 11 X 

X X 

I X UNDERSLAB AC FRE X 

!T X ON SON SON SON S X > 

1 X X 

X X 

XOD 5 RD 5 PCT OX 

XXXXXXXXXXXXXXXXXXXXXX 
ES 17FEB83 EF 24FE883 



V 



XXXXXXXXXXXXXXXXXXXXXX 
X ACT NO. 22 X 



X 

X CONCRETE SUB ON 



X 

X 



> X GRADE 

TO X 
TF -20 X 



X 

X 

X 



XOD 5 RD 5 PCT OX 
XXXXXXXXXXXXXXXXXXXXXX 
ES 9MAR83 EF 15MAR83 



89 



:an Community Developers, Inc. 
DATE 23MAY87 RUN NO. 14 



PRIMAVERA PROJECT PLANNER 
NETWORK PATH ANALYSIS 



Multi Family Housing Project 



»emo Network Logic Rep for Critical Path 



START DATE 13DEC82 FIN DATE 6SEP84 
DATA OATE 1FEB83 PAGE NO. 11 



:xxxxxxxxxxxxxxxxxx 

T NO. 89 X 



X 

X 



EXTURE WALLS AN X 
CEILINGS X > 



X FROM 
X TF -13 
13 RD 13 PCT OX 
XXXXXXXXXXXXXXXXXX 
1JAN84 EF 16FEB84 



V 

xxxxxxxxxxxxxxxxxxxxxx 

X ACT NO. 91 X 

X X 

f. X BATHROOM TILE X 

CT X X > 

3 X X 

X X 

XOD 5 RD 5 PCT OX 
XXXXXXXXXXXXXXXXXXXXXX 
ES 17FEB84 EF 23FEB84 



V 



XXXXXXXXXXXXXXXXXXXXXX 



X ACT NO. 

X 

X PAINTING 



95 X 



X 

X 



>X 

TO X 
TF -13 X 



X 

X 

X 



XOD 20 RO 20 PCT OX 
XXXXXXXXXXXXXXXXXXXXXX 
ES 2MAR84 EF 29MAR84 



90 



n Community Developers, Inc. 
DATE 23MAY87 RUN NO. 14 



PRIMAVERA PROJECT PLANNER 
NETWORK PATH ANALYSIS 



Multi Family Housing Project 



mo Network Logic Rep for Critical Path 



START DATE 13DEC82 FIN DATE 6SEP84 
DATA DATE 1FEB83 PAGE NO. 12 



XXXXXXXXXXXXXXXXX 
NO. 115 X 



X 

X 



STALL CABINETS X 



X FROM 
X TF -13 



13 RD 13 PCT OX 
XXXXXXXXXXXXXXXXX 
4AY84 EF 18MAY84* 



V 

xxxxxxxxxxxxxxxxxxxxxx 

X ACT NO. 118 X 

X X 

X PLUMBING CONNECT X 

X I ONS I ONS I ONS IONS X > 

X X 

X X 

XOD 13 RD 13 PCT OX 
XXXXXXXXXXXXXXXXXXXXXX 
ES 21MAY84 EF 6JUN84* 



V 



XXXXXXXXXXXXXXXXXXXXXX 



X ACT NO. 
X 



123 X 
X 



X BATHROOM ACCESSO X 



>X RIES 

TO X 
TF 0 X 



X 

X 

X 



XOD 5 RD 5 PCT OX 
XXXXXXXXXXXXXXXXXXXXXX 
ES 7JUN84 EF 13JUN84* 



5 PCT OX 



91 



i Community Developers, Inc. 

5ATE 23MAY87 RUN NO. 14 

no Network Logic Rep for Critical Path 



PRIMAVERA PROJECT PLANNER 
NETWORK PATH ANALYSIS 



Multi Family Housing Project 
START DATE 13DEC82 FIN DATE 6SEP84 
DATA DATE 1FEB83 PAGE NO. 13 



(XXXXXXXXXXXXXXXX 
NO. 118 X 
X 
X 

JM8ING CONNECT X 

IS AND TRIMOUT X > 

X FROM 
X TF -3 
13 RD 13 PCT OX 
IXXXXXXXXXXXXXXXX 
IAY84 EF 6JUN84* 



I 



xxxxxxxxxxxxxxxxxxxxxx 

X ACT NO. 123 X 
X X 
X BATHROOM ACCESSO X 
X RIES X- 
X X 
X X 
XOD 5 RD 5 PCT OX 
XXXXXXXXXXXXXXXXXXXXXX 
ES 7JUN84 EF 13JUN84 



XXXXXXXXXXXXXXXXXXXXXX 
X ACT NO. 128 X 

X X 

X CLEAN UP X 

->X X- 

X X 

X X 

XOD 10 RD 10 PCT OX 
XXXXXXXXXXXXXXXXXXXXXX 
ES 14JUN84 EF 27JUN84 



XXXXXXXXXXXXXXXXXXXXXX 
X ACT NO. 136 X 

X X 

X PAINT TOUCH UP X 

->X X- 

X X 

X X 

XOD 5 RO 5 PCT OX 

XXXXXXXXXXXXXXXXXXXXXX 
ES 28JUN84 EF 5JUL84 



XXXXXXXXXXXXXXXXXXXXXX 
X ACT NO. 138 X 
X X 
X INSTALL CARPETIN X 

->X G X 

X X 
X X 
XOD 15 RD 15 PCT OX 
XXXXXXXXXXXXXXXXXXXXXX 
ES 6JUL84 EF 26JUL84 



I 

V 

XXXXXXXXXXXXXXXXXXXXXX xxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxx 



X ACT NO. 140 


X 


X ACT NO. 


142 


X 


X ACT NO. 


144 


X 


X ACT NO. 


146 


X 


X 


X 


X 




X 


X 




X 


X 




X 


X INSTALL DRAPES 


X 


X CLEAN UP 




X 


X PUNCH LIST 




X 


X BUILDING COMPLET 


X 


X 


X 


— >X 




X 


>X 




X 


— >X E 




X- 


X 


X 


X 




X 


X 




X 


X 




X 


X 


X 


X 




X 


X 




X 


X 




X 


XOD 5 RO 5 PCT 


OX 


XOD 10 RD 


10 PCT 


ox 


XOD 10 RD 10 


PCT 


OX 


XOD 5 RD 


5 PCT 


OX 



xxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxx 

ES 27JUL84 EF 2AUG84 ES 3AUG84 EF 16AUG84 ES 17AUG84 EF 30AUG84 ES 31AUG84 EF 6SEP84 



V 

NO SUCCESSORS 



I- SORTING CRITERIA 
I ES TF 



( ACTIVITIES SORTED = 58 
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Community Developers, Inc. 



PRIHAVERA PROJECT PLANNER 



Multi Family Housing Project 



ME 23MAY87 RUN ND. 16 PRDJECT SCHEDULE START DATE 13DEC82 FIN DATE 6SEP84 

>d Rep (with log) - Sorted by ES, TF DATA DATE 1FE883 PAGE ND. 1 



TY 

R 


ORIG REM 
DUR OUR 


PCT 


CDDE 


ACTIVITY DESCRIPTION 


EARLY 

START 


EARLY 

FINISH 


LATE 

START 


LATE 

FINISH 


TOTAL 

FLDAT 


1 


5 


0 


100 




LAYDUT 


14DEC82A 22DEC82A 








3 


15 


0 


100 




SDIL STABILIZATION 


28DEC82A 20JAN83A 








5 


8 


3 


62 




PLUM8ING-STREET CONNECTION AND UNDERSLA8 


24JAN83A 


3FEB83 




6JAN83 


-20 


7 


5 


2 


60 




FOUNDATION EXCAVATIDN 


4FE883 


7FE883 


7JAN83 


10JAN83 


-20 


9 


7 


7 


0 




GRANULAR FILL 


8FEB83 


16FEB83 


11JAN83 


19JAN83 


-20 


13 


13 


13 


0 




TERMITE PROTECTION 


17FE883 


8MAR83 


20JAN83 


7FE883 


-20 


12 


7 


7 


0 




UNDERSLA8 ELECTRICAL LINE 


17FE883 


28FE883 


28JAN83 


7FE883 


-14 


11 


5 


5 


0 




UNDERSLA8 AC FREON S&R LINE 


17FEB83 


24FE883 


1FE883 


7FE883 


-12 


22 


5 


5 


0 




CONCRETE SLA8 ON GRAOE 


9MAR83 


15MAR83 


8FE883 


14FEB83 


-20 


24 


13 


13 


0 




CURING TIME 


16MAR83 


1APR83 


15FE883 


4MAR83 


-20 


26 


10 


10 


0 




SET PRECAST CONCRETE PANELS 


4APR83 


15APR83 


7MAR83 


18MAR83 


-20 


27 


6 


6 


0 




GRDUT PRECAST PANELS 


11APR83 


18APR83 


14MAR83 


21MAR83 


-20 


30 


50 


50 


0 




INSTALL METAL STAIRS 


19APR83 


28JUN83 


22MAR83 


31MAY83 


-20 


50 


20 


20 


0 




FRAME INTERIOR WALLS 


19APR83 


16MAY83 


8JUL83 


4AUG83 


56 


52 


4 


4 


0 




INSTALL TU8, STACK OUT PLUM8ING 


17MAY83 


20MAY83 


5AUG83 


10AUG83 


56 


53 


15 


15 


0 




PULL WIRE & RDUGH IN ELECTRIC&TELEPHONE IN WALLS 


17MAY83 


7JUN83 


11AUG83 


31AUG83 


60 


54 


8 


8 


0 




TV WIRE PULLING 


17MAY83 


26MAY83 


22AUG83 


31AUG83 


67 


32 

E 


23 


23 


0 




PLATES, LINTELS, ANO RDDF TRUSSES 


29JUN83 


1AUG83 


1JUN83 


1JUL83 


-20 


3. 


20 


20 


0 




REDWDDD FASCIA, SDFFIT AND PLYWDDD DECKING 


2AUG83 


29AUG83 


5JUL83 


1AUG83 


-20 




5 


5 


0 




DRY SHEETING 


30AUG83 


5SEP83 


. 2AUG83 


8AUG83 


-20 


43 


4 


1 


62 




STOCK 8ULK MATERIAL INSIDE 8UILDING 


6SEP83 


6SEP83 


9AUG83 


9AUG83 


-20 


58 


15 


15 


0 




ROOF SHINGLES 


6SEP83 


27SEP83 


11AUG83 


31AUG83* 


-18 
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PROJECT SCHEDULE 
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DATA DATE 1FE883 
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ORIG REM 
DUR DUR 


PCT 


ACTIVITY DESCRIPTION 

CODE 




EARLY 

START 


EARLY 

FINISH 


LATE 

START 


LATE 

FINISH 


TOTAL 

FLOAT 


15 


3 


3 


0 


SET INFILL PANEL FRAMING 




7SEP83 


9SEP83 


10AUG83 


12AUG83 


-20 


n 


5 


5 


0 


WINDOWS 




13SEP83 


19SEP83 


15AUG83 


19AUG83 


-20 


19 


8 


8 


0 


WOOD SIDING 




20SEP83 


29SEP83 


22AUG83 


31AUG83 


-20 


56 


5 


5 


0 


WALL INSULATION 

Sub - Contractor: Jones Corp. 

Drawing No. 64512 




30SEP83* 


60CT83 


1SEP83* 


7SEP83 


-20 


>7 


5 


5 


0 


CONCRETE STAIRS 




40CT83 


10OCT83 


7JUN84 


13JUN84 


174 


>8 


6 


6 


0 


EXTERIOR RAILINGS 




50CT83 


120CT83 


6JUN84 


13JUN84 


172 


'0 


25 


25 


0 


SHEETROCK WALLS 




70CT83 


10NOV83 


20SEP83 


240CT83 


-13 


2 


20 


20 


0 


TAPE AND 8ED 




11N0V83 


9DEC83 


250CT83 


21NOV83 


-13 


6 


5 


5 


0 


FUR DOWN FOR CEILING AIR CONDITIONER 




12DEC83 


16DEC83 


22NOV83 


29NOV83 


-13 


4 


10 


10 


0 


8LOW ON CEILING INSULATION 




12DEC83 


23DEC83 


31MAY84 


13JUN84 


121 


8 


10 


10 


0 


A/C ROUGH IN 




19DEC83 


3JAN84 


30NOV83 


13DEC83 


-13 


0 


4 


4 


0 


SHEETROCK FUR DOWNS 




4JAN84 


9JAN84 


14DEC83 


19DEC83 


-13 


7 


15 


15 


0 


TAPE AND 8ED FUR DOWNS 




10JAN84 


30JAN84 


20DEC83 


11JAN84 


-13 


9 


13 


13 


0 


TEXTURE WALLS AND CEILINGS 




31JAN84 


16FE884 


12JAN84 


30JAN84 


-13 


3 


10 


10 


0 


DOORS AND TRIM 




17FE884 


1MAR84 


31JAN84 


13FE884 


-13 


1 


5 


5 


0 


8ATHROOM TILE 




17FE884 


23FEB84 


7FE884 


13FE884 


-8 


i 


20 


20 


0 


PAINTING 




2MAR84 


29MAR84 


14FE884 


12MAR84 


-13 


1) 


8 


8 


0 


VINYL WALL COVERING 




30MAR84 


10APR84 


13MAR84 


22MAR84 


-13 


l 


5 


5 


0 


HARDWARE 




30MAR84 


5APR84 


7JUN84 


13JUN84 


49 


1 


5 


5 


0 


CLEAN UP 




11APR84 


17APR84 


23MAR84 


29MAR84 


-13 


1 


10 


10 


0 


RESILIENT FLOORING AND 8ASES 




18APR84 


1MAY84 


30MAR84 


12APR84 


-13 
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START 
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FINISH 


LATE 

START 


LATE 

FINISH 


TOTAL 

FLOAT 


13 


13 


0 


INSTALL CABINETS 


2MAY84 


18MAY84 


13APR84* 


1MAY84 


-13 


14 


14 


0 


PANELING, FINISH CARPENTRY ANO MILLWORK 


2MAY84 


21MAY84 


25MAY84 


13JUN84 


17 


10 


10 


0 


INSTALL CONDENSERS ANO A/C TRIMOUT 


2MAY84 


15MAY84 


31MAY84 


13JUN84 


21 


5 


5 


0 


TV TRIMOUT 


2MAY84 


8MAY84 


7JUN84 


13JUN84 


26 


12 


12 


0 


ELECTRICAL CONNECTIONS ANO TRIMOUT 


17MAY84 


1JUN84 


29MAY84 


13JUN84 


8 


13 


13 


0 


PLUMBING CONNECTIONS ANO TRIMOUT 


21MAY84 


6JUN84 


16MAY84 


1JUN84* 


-3 


5 


5 


0 


SET APPLIANCES 


21MAY84 


25MAY84 


31MAY84 


6JUN84 


8 


5 


5 


0 


BATHROOM ACCESSORIES 


7JUN84 


13JUN84 


7JUN84 


13JUN84 


0 


10 


10 


0 


CLEAN UP 


14JUN84 


27JUN84 


14JUN84 


27JUN84 


0 


5 


5 


0 


PAINT TOUCH UP 


28JUN84 


5JUL84 


28JUN84 


5JUL84 


0 


15 


15 


0 


INSTALL CARPETING 


6JUL84 


26JUL84 


6JUL84 


26JUL84 


0 


5 


5 


0 


INSTALL DRAPES 


27JUL84 


2AUG84 


27JUL84 


2AUG84 


0 


10 


10 


0 


CLEAN UP 


3AUG84 


16AUG84 


3AUG84 


16AUG84 


0 


10 


10 


0 


PUNCH LIST 


17AUG84 


30AUG84 


17AUG84 


30AUG84 


0 


5 


5 


0 


BUILDING COMPLETE 


31AUG84 


6SEP84 


31AUG84 


6SEP84 


0 



95 



ITY 

1 

3 

5 

7 

9 

1 1 

12 

13 

22 

24 

26 

27 

30 

32 

34 

41 

43 

45 

47 

49 

50 

52 

53 

54 

58 

66 

67 

68 

70 

72 

74 

76 

78 

80 

87 

89 

91 

93 

95 

99 

100 

L 07 

109 

112 

113 

114 

115 

117 

118 

119 



Page : 



1 



RD PCT DESCRIPTION 
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START FINISH TF 
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100 


LAYOUT 


1 4DEC82A 


22DEC82A 




0 


100 


SOIL STABILIZATION 


28DEC82A 


20JAN83A 




3 


62 


PLUMBING-STREET CONNECTION AND UNDERS 


24 JAN83A 


3FEB83 


-20 


2 


60 


FOUNDATION EXCAVATION 


4FEB83 


7FEB83 


-20 


7 


0 


GRANULAR FILL 


8FEB83 


16FEB83 


-20 


5 


0 


UNDERSLAB AC FREON S&R LINE 


17FEB83 


24FEB83 


-12 


7 


0 


UNDERSLAB ELECTRICAL LINE 


17FEB83 


28FEB83 


-14 


13 


0 


TERMITE PROTECTION 


17FEB83 


8MAR83 


-20 


5 


0 


CONCRETE SLAB ON GRADE 


9MAR83 


15MAR83 


-20 


13 


0 


CURING TIME 


16MAR83 


1APR83 


-20 


10 


0 


SET PRECAST CONCRETE PANELS 


4APR83 


1 5 APR 8 3 


-20 


6 


0 


GROUT PRECAST PANELS 


1 1APR83 


1 8 APR 83 


-20 


50 


0 


INSTALL METAL STAIRS 


1 9 APR 83 


28JUN83 


-20 


23 


0 


PLATES, LINTELS, AND ROOF TRUSSES 


29JUN83 


1 AUG 8 3 


-20 


20 


0 


REDWOOD FASCIA, SOFFIT AND PLYWOOD DEC 


2 AUG 83 


2 9 AUG 8 3 


-20 


5 


0 


DRY SHEETING 


30AUG83 


5SEP83 


-20 


1 


62 


STOCK BULK MATERIAL INSIDE BUILDING 


6SEP83 


6SEP83 


-20 


3 


0 


SET INFILL PANEL FRAMING 


7SEP83 


9SEP83 


-20 


5 


0 


WINDOWS 


13SEP83 


19SEP83 


-20 


8 


0 


WOOD SIDING 


20SEP83 


29SEP83 


-20 


20 


0 


FRAME INTERIOR WALLS 


1 9 APR 83 


16MAY83 


56 


4 


0 


INSTALL TUB, STACK OUT PLUMBING 


17MAY83 


20MAY83 


56 


15 


0 


PULL WIRE & ROUGH IN ELECTR I C&TELEPHO 


17MAY83 


7JUN83 


60 


8 


0 


TV WIRE PULLING 


17MAY83 


26MAY83 


67 


15 


0 


ROOF SHINGLES 


6SEP83 


27SEP83 


-18 


5 


0 


WALL INSULATION 


30SEP83 


60CT83 
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5 


0 


CONCRETE STAIRS 


40CT83 


100CT83 
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6 


0 
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50CT83 
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25 


0 
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70CT83 


10N0V83 
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20 


0 


TAPE AND BED 
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-13 


10 


0 
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5 
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FUR DOWN FOR CEILING AIR CONDITIONER 
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-13 


10 


0 


A/C ROUGH IN 
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3JAN84 


-13 


4 


0 


SHEETROCK FUR DOWNS 


4JAN84 


9 JAN84 


-13 


15 


0 


TAPE AND BED FUR DOWNS 


10JAN84 


30JAN84 


-13 


13 


0 


TEXTURE WALLS AND CEILINGS 


31 JAN84 


16FEB84 


-13 


5 


0 


BATHROOM TILE 


17FEB84 


23FEB84 


-8 


10 


0 


DOORS AND TRIM 


17FEB84 


1 MAR 84 


-13 


20 


0 


PAINTING 


2 MAR 8 4 


29MAR84 


-13 


5 


0 
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3 OMAR 84 


5APR84 


49 


8 


0 


VINYL WALL COVERING 
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10APR84 


-13 


5 


0 


CLEAN UP 


11APR84 


17APR84 


-13 


10 


0 


RESILIENT FLOORING AND BASES 


18APR84 


1MAY84 


-13 


14 


0 


PANELING, FINISH CARPENTRY AND MILLWO 


2MAY84 


21MAY84 


17 


10 


0 


INSTALL CONDENSERS AND A/C TRIMOUT 


2MAY84 


15MAY84 


21 


5 


0 


TV TRIMOUT 


2MAY84 


8MAY84 


26 


13 


0 


INSTALL CABINETS 


2MAY84 


18MAY84 


-13 


5 


0 


SET APPLIANCES 


21MAY84 


25MAY84 


8 


13 


0 


PLUMBING CONNECTIONS AND TRIMOUT 


21MAY84 


6JUN84 


-3 


12 


0 


ELECTRICAL CONNECTIONS AND TRIMOUT 


17MAY84 


1 JUN84 


8 



96 



IVITY 


RD 


PCT 


DESCRIPTION 
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TF 
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5 


0 


BATHROOM ACCESSORIES 
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13JUN84 


0 


128 


10 


0 
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27JUN84 


0 
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0 


PAINT TOUCH UP 
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5JUL84 


0 
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15 


0 


INSTALL CARPETING 
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0 
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0 


INSTALL DRAPES 
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0 
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0 



Page: 1- I 





03 


07 


07 


04 


02 


06 


04 
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JAN 


FEB 
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APR 


MAY 


JUN 


JUL 
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SEP 
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FEB 
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MAY 
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JUL 
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SEP 
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83 


83 
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83 
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12 UNDERSLAB ELECTRICA 

13 TERMITE PROTECTION 
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24 CURING TIME 

26 SET PRECAST CONCRET 

27 GROUT PRECAST PANEL 
30 INSTALL METAL STAIR 
32 PLATES, LINTELS, AN 
34 REDWOOD FASCIA, SOFF 
41 DRY SHEETING 

43 STOCK BULK MATERIAL 

15 SET INFILL PANEL FR 
47 WINDOWS 

(9 WOOD SIDING 
50 FRAME INTERIOR WALL 

52 INSTALL TUB, STACK 

53 PULL WIRE & ROUGH I 
>4 TV WIRE PULLING 

58 ROOF SHINGLES 
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>7 CONCRETE STAIRS 
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•5 PAINTING 
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>3 8ATHROOM ACCESSORIE 
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3PEN PLAN 




TEST OPEN PLAN INCORPORATED 






PAGE: 1 




REPORT: ACTES 




ACTIVITY LISTING by EARLY START 






REPORT OATE : 23MAY87 




PROJECT: AONOENO 




Open Plan Demonstration Network (ADM) 






TIME NOW : 05SEP87 




REM 


ORIG 


EARLY 


EARLY 


LATE 


LATE 


TOTAL 


ACTIVITY OUR 


OUR DESCRIPTION 


CODE 1 COOE 2 START 


FINISH 


START 


FINISH 


FLOAT 



07SEP87 09SEP87 0 
29SEP87 30SEP87 16 
21SEP87 28SEP87 10 
16SEP87 17SEP87 7 
14SEP87 17SEP87 2 
10SEP87 17SEP87 0 
22SEP87 24SEP87 8 
24SEP87 28SEP87 10 
29SEP87 30SEP87 10 
18SEP87 17SEP87 2 
18SEP87 24SEP87 0 
25SEP87 28SEP87 5 
25SEP87 28SEP87 0 
29SEP87 30SEP87 0 



HO 


A20 


3 


3 


MATERIAL OELIVERY 


DEPTA 


GEN 


07SEP87 


09SEP87 


110 


A30 


2 


2 


EXCAVATION 


OEPTB 


GEN 


07SEP87 


08SEP87 


110 


A40 


6 


6 


GARDENING WORK 


OEPTB 


OECO 


07SEP87 


14SEP87 


110 


A60 


2 


2 


ORAINAGE WORK 


OEPTB 


UTIL 


07SEP87 


08SEP87 


120 


A50 


4 


4 


ROOF FABRICATION 


OEPTA 


GEN 


10SEP87 


15SEP87 


120 


A60 


6 


6 


WALL FABRICATION 


OEPTA 


GEN 


10SEP87 


17SEP87 


H20 


A70 


3 


3 


OOORS ANO WINDOWS 


OEPTA 


GEN 


10SEP87 


14SEP87 


120 


A80 
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3 
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DEPTA 


UTIL 
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14SEP87 
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A60 


0 


0 
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* 1 1 
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3 
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APPENDIX G 

SAMPLE OUTPUT FROM 
MACPROJECT 



taken from 

Richard 0. Gamble II, "Construction Scheduling 
Using MacProject " , Department of Civil Engineering, 
University of Florida, 1986. 
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APPENDIX H 

SAMPIiE OUTPUT 
AIMD COME’UTEIR. LISTING 
OF CPMREV 



118 



PROJECT: FILE26 



05-23-1987 



: 


& :£i 

:x :V: :S: AS: A >. :■<: 

♦s •;/. .v. .v. .;a a;, a;. ,;a .;a »v. a;. •••■• 


KsHS:: 


LISTING OF 


ACTIVITIES 




<% 




i# :‘A iff: iff: 

::::: ::::: :ff: :ff: :ff: :ff: :ff: :ff : :ff: :ff: :ff: :ff: :ff: 

a .;a ,v. .V. .*a a;, /a a\ /a a*, /a / a .*a / ( a /a 










RESOURCES 


REQ ' D 






ACT . 


DESCRIPTION 


DUR. 


UNIT COST 


#1 


#2 


#3 


#4 


#5 


DEPENDENCIES 


1 


MOVE IN 


6 


$456 . 00 


0 


2 


5 


6 


0 


0 


2 


EXCAVATE SITE 


7 


$1 , 234 . 00 


8 


14 


4 


6 


20 


1 


6 


INSTALL POWER 


15 


$345 . 00 


0 


2 


0 


4 


0 


2 


3 


ERECT FORMS 


3 


$345 . 00 


0 


2 


6 


6 


0 


2 


4 


PLACE CONCRETE 


3 


$34 . 00 


0 


0 


0 


6 


0 


3 


5 


CLEAN UP 


2 


$23 .00 


0 


1 


0 


2 


0 


1 2 3 


7 


INSP.& MOVE OUT 


2 


$23 .00 


0 


1 


0 


4 


0 


1 2 3 

4 5 6 



RESOURCE # 1 
RESOURCE * 2 
RESOURCE # 3 
RESOURCE # 4 
RESOURCE # 5 



BULLDOZERS 

TRUCKS 

CARPENTERS 

LABORERS 

FRONT END LOADERS 
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PROJECT: FILE26 



05-23-1987 



:Vi ft-: ft: :V: ft? ft: ft? ft?. ft: 8: ft? ft: Si 



CPM NETWORK ANALYSIS 



SS ‘‘-ft :::■: Si Si Si Si ft: ft: Si iii ft?, ft: ft: ft? ft: ft': Si ft: Si Si lit: ft- 

X: fift ftft ft-: X-: X: X: X: X: ft-: X: ft- 

V*. .v. </. //.♦ + + % //• //. «. /✓. //. .V,. //. //. //. //. //. //. .V. ✓ -% </. //,. // 



ACT . 


DESCRIPTION 


DUR . 


COST 


ES 


EF 


LS 


LF 


TF 


CP 


1 


MOVE IN 


6 


$2 , 736 . 00 


0 


6 


0 


*6 


0 


* 


2 


EXCAVATE SITE 


7 


$8 , 638 . 00 


6 


13 


6 


13 


0 


* 


6 


INSTALL POWER 


15 


$5,175.00 


13 


28 


13 


28 


0 


* 


3 


ERECT FORMS 


3 


$1 , 035 . 00 


13 


16 


20 


23 


7 




4 


PLACE CONCRETE 


3 


$102.00 


16 


19 


23 


26 


7 




5 


CLEAN UP 


2 


$46.00 


19 


21 


26 


28 


7 




7 


INSP.& MOVE OUT 


2 


$46 . 00 


28 


30 


28 


30 


0 


* 



TOTAL DURATION OF PROJECT IS: 30 

DIRECT COST OF PROJECT IS: $17,778.00 



INDIRECT COST OF PROJECT IS: $1,020.00 

TOTAL COST FOR PROJECT IS: $18,798.00 
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PROJECT: FILE26 



: j'S: :'ft :V: -.V: 55: f* ::: 

• «• «• «• «• #v. /.;» 



!v! !*X !•••• 

i*: -.tt :% :i:|: sr-: * 



> .V. </. //,. « 



GANTT (BAR) CHART 



ACT. DESCRIPTION 

1 HOVE IN 

2 EXCAVATE SITE 

6 INSTALL POWER 

3 ERECT FORHS 

4 PUCE CONCRETE 

5 CLEAN UP 

7 INSP.& MOVE OUT 




15 



18 



21 



24 



27 



30 



1-1- i — I — I — I — I — 1 — I — I — 1 — I 



mm J z mmmmmMzmm 



mm 



TOTAL OU RATION: 30 



LEGEND: 



DIRECT COST: $17,778.00 

INDIRECT COST: $1,020.00 

TOTAL COST FOR PROJECT: $18,798.00 



CRITICAL PATH: |fgj 
NON CRITICAL: ssss 
FLOAT TIME: 77777 
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PROJECT: FILE26 



05 - 23-1987 



RESOURCE: BULLDOZERS 

RESOURCE LISTING & HISTOGRAM 




AY 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 
19 
!0 



'6 

'7 

'8 

19 

‘0 



DATE 

20 DEC 86 

21 DEC 86 

22 DEC 86 

23 OEC 86 

24 OEC 86 

25 OEC 86 

26 OEC 86 

27 OEC 86 

28 OEC 86 

29 OEC 86 

30 OEC 86 

31 OEC 86 

1 JAN 87 

2 JAN 87 

3 JAN 87 

4 JAN 87 

5 JAN 87 

6 JAN 87 

7 JAN 87 

8 JAN 87 

9 JAN 87 

10 JAN 87 

11 JAN 87 

12 JAN 87 

13 JAN 87 

14 JAN 87 

15 JAN 87 

16 JAN 87 

17 JAN 87 

18 JAN 87 




10 



■i — f 
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PROJECT: FILE26 



05-23-1987 



RESOURCE: TRUCKS 




RESOURCE LISTING & HISTOGRAM 




//. (M, //. //. //. //. //. //• /#■ //. **• //. /A //■ //. M *r « s r . /#» //. / #• //. #«• 





DATE 




20 


DEC 


86 


21 


DEC 


86 


22 


OEC 


86 


23 


OEC 


86 


24 


DEC 


86 


25 


DEC 


86 


26 


DEC 


86 


27 


DEC 


86 


28 


DEC 


86 


29 


DEC 


86 


30 


DEC 


86 


31 


DEC 


86 


1 


JAN 


87 


2 


JAN 


87 


3 


JAN 


87 


4 


JAN 


87 


5 JAN 


87 


6 


JAN 


87 


7 


JAN 


87 


8 


JAN 


87 


9 


JAN 


87 


10 


JAN 


87 


11 


JAN 


87 


12 JAN 


87 


13 


JAN 


87 


14 


JAN 


87 


15 


JAN 


87 


16 


JAN 


87 


17 


JAN 


87 


18 


JAN 


87 
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PROJECT: FILE26 



05-23-1987 



RESOURCE: CARPENTERS 
hliilliliilll RESOURCE LISTING & HISTOGRAM 







DATE 

i 20 DEC 86 
I 21 DEC 86 
• 22 DEC 86 

4 23 DEC 86 
I 24 DEC 86 
f 25 DEC 86 
I 26 DEC 86 
t 27 DEC 86 
£ 28 DEC 86 

0 29 DEC 86 

1 30 DEC 86 

2 31 DEC 86 

3 1 JAN 87 

I 2 JAN 87 

5 3 JAN 87 

6 4 JAN 87 

7 5 JAN 87 

8 6 JAN 87 

9 7 JAN 87 

0 8 JAN 87 

1 9 JAN 87 

2 10 JAN 87 

3 11 JAN 87 

4 12 JAN 87 

5 13 JAN 87 

6 14 JAN 87 

7 15 JAN 87 

8 16 JAN 87 

9 17 JAN 87 
D 18 JAN 87 



0 1 2 3 4 5 6 7 8 9 10 




0 

0 

0 

0 

0 

0 

0 

0 

C 

0 

0 

0 
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PROJECT: FILE26 



05-23-1987 






RESOURCE: LABORERS 

illllllllllllll RESOURCE LISTING & HISTOGRAM 



/#.M MMAT. MMM M MM//. //. .V, 




OAY 


OATE 






20 


DEC 


86 


2 


21 


DEC 


86 


3 


22 


DEC 


86 


4 


23 


DEC 


86 


5 


24 


DEC 


86 


6 


25 


DEC 


86 


7 


26 


DEC 


86 


8 


27 


DEC 


86 


9 


28 


DEC 


86 


10 


29 


DEC 


86 


11 


30 


DEC 


86 


12 


31 


DEC 


86 


13 


1 


JAN 


87 


14 


2 


JAN 


87 


15 


3 


JAN 


87 


16 


4 


JAN 


87 


17 


5 


JAN 


87 


18 


6 


JAN 


87 


19 


7 


JAN 


87 


20 


8 


JAN 


87 


21 


9 


JAN 


87 


22 


10 


JAN 


87 


23 


11 


JAN 


87 


24 


12 


JAN 


87 


25 


13 


JAN 


87 


26 


14 


JAN 


87 


27 


15 


JAN 


87 


28 


16 


JAN 


87 


29 


17 


JAN 


87 


30 


18 


JAN 


87 



0 1 2 3 4 5 6 7 8 9 10 




t 
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PROJECT: FILE26 



05-23-1987 



RESOURCE: FRONT END LOADERS 

RESOURCE LISTING & HISTOGRAM 






/*. //./A 



IAY 


DATE 


IN USE 


1 


20 DEC 86 


0 


2 


21 DEC 86 


0 


3 


22 DEC 86 


0 


4 


23 DEC 86 


0 


5 


24 DEC 86 


0 


6 


25 DEC 86 


0 


7 


26 DEC 86 


20 


8 


27 DEC 86 


20 


9 


28 DEC 86 


20 


10 


29 DEC 86 


20 


11 


30 DEC 86 


20 


12 


31 DEC 86 


20 


13 


1 JAN 87 


20 


14 


2 JAN 87 


0 


15 


3 JAN 87 


0 


16 


4 JAN 87 


0 


17 


5 JAN 87 


0 


18 


6 JAN 87 


0 


19 


7 JAN 87 


0 


20 


8 JAN 87 


0 


21 


9 JAN 87 


0 


22 


10 JAN 87 


0 


23 


11 JAN 87 


0 


24 


12 JAN 87 


0 


25 


13 JAN 87 


0 


26 


14 JAN 87 


0 


27 


15 JAN 87 


0 


28 


16 JAN 87 


0 


29 


17 JAN 87 


0 


30 


18 JAN 87 


0 



1 1 1 i I 1 



6 8 10 

1 I ■ I h ■ h 



12 



14 



16 



18 20 



1 I 1 I 1 I 
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(SOURCE 

UMBER 

: 



PROJECT 

NAME 

FILE27 . RES 



RESOURCE 

NAME 

TRUCKS 



DATE 



# REQ'D 0 



26 


DEC 


86 


4 


27 


DEC 


86 


4 


28 


DEC 


86 


4 


29 


DEC 


86 


4 


30 


DEC 


86 


23 


31 


DEC 


86 


23 


1 


JAN 


87 


23 


2 


JAN 


87 


23 


3 


JAN 


87 


23 


4 


JAN 


87 


23 


5 


JAN 


87 


23 


6 


JAN 


87 


23 


7 


JAN 


87 


23 


8 


JAN 


87 


23 


9 


JAN 


87 


3 


10 


JAN 


87 


3 


1 1 


JAN 


87 


3 


12 


JAN 


87 


3 


13 


JAN 


87 


3 


14 


JAN 


87 


2 


15 


JAN 


87 


2 


16 


JAN 


87 


1 


17 


JAN 


87 


1 


18 


JAN 


87 


1 


19 


JAN 


87 


1 


20 


JAN 


87 


1 


21 


JAN 


87 


1 


22 


JAN 


87 


1 


23 


JAN 


87 


1 


24 


JAN 


87 


1 


25 


JAN 


87 


1 


26 


JAN 


87 


1 


27 


JAN 


87 


1 


28 


JAN 


87 


1 


29 


JAN 


87 


1 


30 


JAN 


87 


1 


31 


JAN 


87 


1 


1 


FEB 


87 


1 


2 


FEB 


87 


1 


3 


FEB 


87 


0 


YOU WANT TO 


QUIT 



4 

+ 



13 



18 



23 



111111111 
111111111 
111111111 
111111111 

11111111111111111111111111111111111111111111111111 



11111111111111111111111111111111111111111111111111 




11111111111111111111111111111111111111111111111111 




AND RETURN TO DOS (Y/N)? 
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SOURCE 

f'MBER 

1 

2 



PROJECT 

NAME 

FILE26 . RES 
FILE27 . RES 



RESOURCE 

NAME 

TRUCKS 

TRUCKS 



DATE 



# REQ ’ D 0 



14 



22 



29 



20 DEC 86 2 

21 DEC 86 2 

22 DEC 86 2 

23 DEC 86 2 

24 DEC 86 2 

25 DEC 86 2 

26 DEC 86 18 

27 DEC 86 18 

28 DEC 86 18 

29 DEC 86 18 

30 DEC 86 37 

31 DEC 86 37 

1 JAN 87 37 

2 JAN 87 27 

3 JAN 87 27 

4 JAN 87 27 

5 JAN 87 25 

6 JAN 87 25 

7 JAN 87 25 

8 JAN 87 26 

9 JAN 87 6 

10 JAN 87 5 

11 JAN 87 5 

12 JAN 87 5 

13 JAN 87 5 

14 JAN 87 4 

15 JAN 87 4 

16 JAN 87 3 

17 JAN 87 2 

18 JAN 87 2 

19 JAN 87 1 

20 JAN 87 1 

21 JAN 87 1 

22 JAN 87 1 

23 JAN 87 1 

24 JAN 87 1 

25 JAN 87 1 

26 JAN 87 1 

27 JAN 87 1 

28 JAN 87 1 

2 9 JAN 8.7 1 

30 JAN 87 1 

31 JAN 87 1 

1 FEB 87 1 

2 FEB 87 1 

3 FEB 87 0 

70U WANT TO QUIT 



- ! 1 1 s 1 1 1 s 1 a — 

in 
in 
1 1 1 
in 
1 1 1 
in 

111111111111111111122222 

111111111111111111122222 

111111111111111111122222 

111111111111111111122222 

11111111111111111112222222222222222222222222222222 
11111111111111111112222222222222222222222222222222 
11111111111111111112222222222222222222222222222222 
111112222222222222222222222222222222 
111112222222222222222222222222222222 
111112222222222222222222222222222222 
1112222222222222222222222222222222 
1112222222222222222222222222222222 
1112222222222222222222222222222222 
11112222222222222222222222222222222 
11112222 
1112222 
1 1 12222 
1112222 
1 1 12222 
111222 
1 11222 
1112 
12 
12 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 

AND RETURN TO DOS (Y/N)? 



37 

i 1 
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50 DEFINT B, D, E, G-L, N , P-Z 

100 DEFSNG A , C , F , M , 0 

150 CLS : KEY OFF 

200 GOTO 2800 

250 X=1 : Y= 1 : W= 7 5 

300 COLOR 12 

350 LOCATE Y,X 

400 PRINT CHR$(201 )+STRING$(W,CHR$( 205) ) 
450 FOR N= 1 TO 21 
500 LOCATE Y+N,X:PRINT 
550 NEXT 

600 LOCATE Y+N,X:PRINT 
650 COLOR 11 



CHR$( 1 87) 

CHR$(186) +STR I NG$(W,CHR$(32))+CHR$( 186) 
CHR$(200)+STRING$(W, CHR$ (205) ) +CH R$ ( 188) 



700 


LOCATE 3,25:PRINT " 


CCCC 


PPPPPP 


MM 


MM" 


750 


LOCATE 4,25: PRINT " 


CCCCCCC 


PPPPPPPP 


MMM 


MMM" 


800 


LOCATE 5,25:PRINT " 


CCC CC 


PPP PPP 


MMMM 


MMMM" 


850 


LOCATE 6,25:PRINT " 


CCC 


PPP PPP 


MMMMMMMMM " 


900 


LOCATE 7, 25: PRINT " 


CCC 


PPPPPPP 


MM MMM MM" 


950 


LOCATE 8, 25: PRINT " 


CCC CC 


PPP 


MM 


MM" 


1 000 


LOCATE 9,25:PRINT 


" CCCCCCC 


PPP 


MM 


MM" 


1 050 


LOCATE 10,25:PRINT 


" CCCC 


PPP 


MM 


MM" 


1 100 
1 150 
1200 
1250 


COLOR 13 

LOCATE 13,39:PRINT 
LOCATE 15, 33 .-PRINT 
LOCATE 16,20:PRINT 


"by" 

"Edward J. Von Hagel " 
"Some subroutines written 


by Robert 


1 300 


LOCATE 18,30:PRINT 


"University 


of Florida" 




1350 

1400 


COLOR 14 

LOCATE 22,28:PRINT 


"Version 25 


- 27 FEB 


1 9 8 7" 





D. Rot z " 



1450 

1500 

1550 

1600 



FOR T 
COLOR 
CLS 
PRINT 



= 1 
7 



TO 4000: NEXT 



THIS PROGRAM WILL DETERMINE THE CRITICAL PATH IN COMPLETING CON 



STRUCT I ON " 
1650 PRINT 



1700 

1750 

1800 

1850 

1900 

1950 

2000 



PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 



START/" 
2050 PRINT 
TAL" 

2100 PRINT 
2150 PRINT 
ITY CAN" 
2200 PRINT 
T BE A" 
2250 PRINT 
HE EXTRA" 
2300 PRINT 



PROJECTS. INFORMATION REQUIRED TO RUN THE PROGRAM INCLUDES:": PRINT 
ACTIVITY NUMBER" 

ACTIVITY DESCRIPTION (optional )" 

DURATION OF EACH ACTIVITY" 

DEPENDENCIES FOR EACH ACTIVITY" 

COST PER UNIT DURATION FOR EACH ACTIVITY (optional)" 

JOB OVERHEAD COST PER UNIT DURATION (optional)": PRINT 
OUTPUT WILL CONSIST OF THE EARLY START/FINISH DATES, LATE 

FINISH DATES, CRITICAL ACTIVITY FLAGS, TOTAL TIME FOR COMPLETION, TO 



COST FOR THE PROJECT 
THE PROGRAM CAN 



(optional), AND A GANTT (BAR) CHART. 
HANDLE A MAXIMUM OF 175 ACTIVITIES. 



: PRINT 

EACH ACTIV 



HAVE A MAXIMUM OF 6 DEPENDENT ACTIVITIES. ACTIVITY DESCRIPTIONS MUS 



MAXIMUM OF 15 CHARACTERS 



CHARACTERS 
COLOR 12 



ARE TRUNCATED 



IF MORE THAN 15 CHARACTERS ARE ENTERED 



ACTIVITIES MAY BE ENTERED IN ANY ORDER 



2350 PRINT 
2400 PRINT 

2450 PRINT : PRINT "IF 
2500 PRINT: COLOR 7 
2550 LOCATE 24,1 .-INPUT 



YOU HAVE A SEPARATE DATA DISK, PLACE IT IN DRIVE <A> NOW 
DO YOU WISH TO CONTINUE (Y or N)";A$: PRINT 
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FOR YES OR N FOR NO . " 



2600 IF A$ = " Y " OR A$ = "y” THEN 2900 
2650 IF A$= " N " OR A$="n" THEN 38050 

2700 BEEP : LOCATE 22,1:C0L0R 12: PRINT "PLEASE ANSWER 

; .-COLOR 7 : PR I NT : GOTO 2550 

2750 rem * ******************************************************************** * 
2800 REM*********************************************************BEGIN PROGRAM 
2850 rem********************************************************************** 
2900 CLS : SOUND 300,1: SOUND 400,2: SOUND 900,3 

2950 V$=DATE$ : WIDTH "LPT1: 

1 .197) 

3000 Pl$="###" : P2$= " \ 

P6 $="$$#######*#, .##" 

REM 

REM**************************************** MM = # OF 

r EM *************************************** * MM1= # OF 



132:X$=STRING$(25, 177) :Y$=STRING$(4 , 196) :U$=STRING$( 

P4$="### " :P5$=”### " 



3050 

[3100 

3150 

3200 

D 

3250 

[3300 

3350 

3400 



\ " : P3$= "$$#### , 

P7$ = "$$####### , .##" 



##" 



ACTIVITIES ALLOWED 
DEPENDENCIES ALLOWE 



REM 
N= 1 

MM= 1 50 

MM1 =10: REM******NOTE MM1 may not exceed 10 unless a change is also made 

in the way that data in stored in the input and write statements.*************** 
3450 MM2 =5 : REM* * * * * *N0TE MM2 may not exceed 10 unless a change 

in the way that data is stored in the input and write statements. 

3500 DIM ACT ( MM ) , DESC$(MM), DUR(MM), COST(MM), DEPON ( MM , 1 1 ) , K ( MM ) 

DIM ES (MM) , EF (MM) , LS (MM) , LF(MM), TF(MM), ACTCOST(MM) 

DIM RESOURCES (10) , RESOURCE ( MM , 1 0 ) , PRO JECTNAMES$ ( 75 ) ,ACTN0S(75) 

DIM DATEREC ( 400 , 5 ) , JDATE(400) 

CALCRUNS = "Y" 

REM*********************************************************************** 
REM*********************»*DISPLAY CURRENT FILES AND OFFER TO RETRIEVE DATA 
REM*********************************************************************** 
OPEN "PROJLIST" FOR APPEND AS #2: CLOSE 



is also made 
*************** 

PED (MM , 11 ) 



3550 

3600 

[3650 

3700 

3750 

3800 

3850 

3900 

3950 

4000 

4050 

4100 

4150 

JECT 

4200 

NAME 

4250 

4300 

4350 

4400 

4450 

4500 



OPEN 
NNN = 
PRINT 
PRINT 
PRINT 

II 

PRINT 



P8$ = " 
\" 

COLOR 7 
FOR X = 
IF EOF 
NNN = 1 
I NPUT#2 



" I ” , 2 , 
0 

: COLOR 



"PROJLIST" 
14: PRINT 

PROJECT 
NAME 



THE PROJECTS LISTED BELOW ARE CURRENTLY ON FILE." 

PROJECT PROJECT PRO 



NAME 



NAME 



### 



### 



### 



### \ 



: PRINT 

CLOSE : 



GOTO 



1 TO 80 
(2) THEN 
+ NNN 

, PROJECTNAMESS (NNN) . 



NEXT 

4600 

ACTNOS (NNN) : PRINT USING P8$ ; NNN; PROJECTNAMES 



$ ( NNN ) ; 

4550 GOTO 4400 



4600 


IF NNN = 0 


THEN 51 


50 














4650 


LOCATE 22,1 


: INPUT 


II 


DO YOU W 


ISH TO RECALL DATA 


FROM 


AN 


EXISTING 


PROJECT 


TED 


ABOVE (Y OR 


N ) " ; A $ 
















4700 


IF A$ = ” N " 


OR A$ 


= 


"n" THEN 


5150 










4750 


IF A$ = "Y" 


OR A$ 


= 


"y" THEN 


4850 










4800 


BEEP : COLOR 
GOTO 4650 


12: PRI 


NT 


"PLEASE 


ANSWER Y FOR YES 


OR 


N 


FOR NO . : 


: COLOR 7 



LIS 
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4850 



: LOCATE 22 , 1 : PRINT 



4900 : LOCATE 23,1:PRINT" 



THEN COLOR 12:PRINT "YOU MUST ONE OF THE ABOVE NU 



N = ACTNOS (NNN1 ) 



4950 LOCATE 22,1: INPUT "WHICH PROJECT DO YOU WISH TO RECALL (ENTER THE PROJECT 

#) "; NNN1 

5000 IF NNN 1 > NNN OR NNN1 < 1 
MBERS" : COLOR 7 : BEEP : GOTO 4950 

5050 PRO J$ = PROJECTNAMESS (NNN1 ) : 

GOTO 36200 

CLS : PR I NT : INPUT "WHAT IS THE NAME OF THIS NEW PROJECT"; PROJ$ : PRINT 

IF PRO J$ = "" THEN COLOR 12: INPUT "PLEASE START THE PROJECT NAME WITH 

" , PRO J$ : GOTO 5200 

IF LEN ( PRO J$ ) > 8 THEN COLOR 12: INPUT "PLEASE ENTER A NAME WITH NO MORE 

CHARICTERS. ", PROJ$ : GOTO 5200 



5100 

5150 

5200 

TTER 

'5250 

HAN 



A LE 



8 



5300 IF ASC ( LEFTS (PR0J$,1)) < 

INPUT " PLEASE START THE 
5350 IF ASC (LEFTS (PR0J$,1)) > 

INPUT " PLEASE START THE 
NEWPRO J$ = "Y" 

IF PRO J $ = "PROJLIST" THEN 



54 00 
5450 
ROJ$ 
5500 
5550 
5600 
5650 



65 OR ASC ( LEFTS (PR0J$,1)) >122 THEN COLOR 12: 

PROJECT NAME WITH A LETTER. " ,PROJ$ :GOTO 5200 
90 AND ASC (LEFTS (PR0J$,1)) < 97 THEN COLOR 12: 
PROJECT NAME WITH A LETTER. ",PROJ$ : GOTO 5200 

BEEP : COLOR 12: INPUT "PLEASE USE ANOTHER NAME " , P 



<= 122 THEN UPPERCASE = LOWERCASE - 32 



MATCH$ = "N" 

FOR X = 1 TO LEN ( PRO J $ ) 

LOWERCASE = ASC (MI D$ ( PROJ$ , X , 1 ) ) 

IF LOWERCASE >= 97 AND LOWERCASE 
ELSE UPPERCASE = LOWERCASE 
5700 MID$ ( PRO J $ , X , 1 ) = CHR$ ( UPPERCASE ) 

5750 NEXT X 
5800 FOR X = 1 TO NNN 

5850 IF PRO J$ = PROJECTNAMESS (X) THEN MATCH$ = 

5900 NEXT X 

5950 IF MATCHS = "Y" THEN COLOR 12: INPUT "YOU ALREADY 
PLASE USE ANOTHER. ",PROJ$:GOTO 5200 
3000 COLOR 7 

GOTO 7400 

REM ********************************************************************** 

REM **********************************************************prqqram MENU 
****** *'* ************************************************************** 



it y ii 



HAVE A FILE BY THAT NAME. 



3050 
3100 
5150 
3200 

3250 CLS : 

5300 PRINT 
3350 PRINT 
3400 PRINT 
3450 PRINT 
5500 PRINT 
5550 PRINT 
3600 PRINT 
3650 PRINT 
5700 PRINT 
3750 PRINT 
3800 INPUT 
5850 IF SELECTION > 
IS NOT ONE THAT IS 
5900 CLS 

15950 IF SELECTION = 
7000 IF SELECTION = 
7050 IF SELECTION = 



PRINT X$ " 

TAB ( 20 ) ; " ( 1 ) 

TAB (20) ; " (2) 

TAB ( 20 ) ; " ( 3 ) 

TAB (20) ; " (4) 

TAB ( 20 ) ; " (5 ) 

TAB ( 20 ) ; " ( 6 ) 

TAB ( 20 ) ; " ( 7 ) 

T AB ( 2 0 ) ; " (8) 

"THE CURRENT 
"ENTER 



PROGRAM MENU 



X$ : PRINT 



VIEW DATA ON SCREEN": PRINT 

EDIT EXISTING DATA" : PRINT 
ADD NEW ACTIVITY": PRINT 

DELETE AN ACTIVITY" :PRINT 
GANTT (BAR) CHART" .-PRINT 
DELETE A PROJECT FROM FILES" 
DISPLAY RESOURCE HISTORGRAM" 
EXIT PROJECT AND SAVE, 
PROGRAM AND DATA FILE IS: 



PRINT 
PRINT 
AND/OR, 'QUIT'" 
” ; P R 0 J $ : PRINT 



PRINT 



SELECTION SELECTION 

8 OR SELECTION < 1 THEN BEEP:COLOR 12: 
AVAILABLE": COLOR 7:PRINT: GOTO 6800 



PRINT "YOUR SELECTION 



1 GOTO 11600 

2 THEN CALCRUNS = "Y" 

3 THEN CALCRUNS = "Y" 



HISTCALCS = "Y" .-GOTO 15200 
HISTCALCS = "Y” : GOTO 11500 
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7100 

7150 

7200 

7250 

7300 

7350 

7400 

7450 

7500 

7550 

TION 

7600 

7650 

7700 

7750 



IF SELECTION = 4 GOTO 31550 
IF SELECTION = 5 GOTO 27800 
IF SELECTION = 6 GOTO 38250 
IF SELECTION = 7 GOTO 39650 
IF SELECTION = 8 GOTO 37650 

REM ********************************************************************* 
REM ************************************************** i NPUT ACTIVITY DATA 
REM ********************************************************************* 
CLS 

MAY MANAGE UP TO FIVE RESOURCES. DO YOU WISH TO UTILIZE THIS OP 
CLS 

OR A$ = "y" THEN 7750 
OR A$ = "n" THEN 9050 
7550 

HAVE NO ADDITIONAL RESOURCES YOU WISH TO TRACK JUST 



INPUT "YOU 
(Y/N) " ; A$ : 

IF A$ = "Y 
IF A$ = "N 
BEEP: GOTO 

COLOR 14.-PRINT "IF YOU 
STRIKE ' RETURN COLOR 7 
7800 PRINT 

PRINT: INPUT "WHAT YEAR DOES 
IF SJ$ = "" THEN SJ$ = "7" 



7850 

7900 

7950 

8000 

8050 

8100 

3150 

3200 

3250 

3300 

3350 

3400 



THIS PROJECT START (e.g. 87)";SJ$ 



AND ASC (RIGHTS (SJ$ , 1 ) ) <= 57 THEN 8050 

THE YEAR " : COLOR 7:G0T0 7850 
(1 TO 12)";DA$ 



IF ASC (RIGHTS (SJ$ , 1 ) ) >= 48 

COLOR 12: PRINT "PLEASE ENTER EITHER NOTHING OR 

PRINT: INPUT "WHAT MONTH DOES THIS PROJECT START 
IF DAS = "" THEN DAS = "1" 

IF VAL(DAS) >= 1 AND VAL(DAS) <= 12 THEN GOTO 8250 
COLOR 12: PRINT "ENTER A INTIGER FROM 1 TO 12 TO REPRESENT 

COLOR 7 : GOTO 8050 

PRINT: INPUT "WHAT DAY OF THE MONTH DOES THIS PROJECT START ( 1 
IF TES = " " THEN TES = "1" 

IF VAL(TES) >= 1 AND VAL ( TES ) <= 31 THEN GOTO 8450 

COLOR 12: PRINT "ENTER AN INTIGER FROM 1 TO 31 TO REPRESENT THE 



THE MONTH" 



TO 31) " ; T E $ 



DAY" 





COLOR 


7 : GOTO 


8250 


3450 


GOSUB 


45100 






3500 


PRINT 








3550 


INPUT 


"WHAT 


IS 


THE 


3600 


PRINT 








3650 


INPUT 


"WHAT 


IS 


THE 


3700 


PRINT 








3750 


INPUT 


"WHAT 


IS 


THE 


3800 


PRINT 








(850 


INPUT 


"WHAT 


IS 


THE 


3900 


PRINT 








1950 


INPUT 


"WHAT 


IS 


THE 


>000 


PRINT 








>050 


CLS : 


INPUT 


"WHAT I 


>100 


IF OHC < 0 THEN 


BEEP : 


>150 


N= 1 








>200 


CLS 








>250 


COLOR 


14 : PRINT 


"BEG 


PRINT: COLOR 7 






300 


INPUT 


"WHAT 


IS 


THE 


350 


INPUT 


"WHAT 


IS 


THE 


400 


INPUT 


"WHAT 


IS 


THE 


450 


IF DUR 


( N) <1 


THEN BE 


500 


INPUT 


"WHAT 


IS 


THE 



FIRST RESOURCE YOU WISH TO TRACK "; RES OURCE $( 1 ) 
SECOND RESOURCE YOU WISH TO TRACK RESOURCES ( 2 ) 
THIRD RESOURCE YOU WISH TO TRACK RES OURCE $( 3 ) 
FOURTH RESOURCE YOU WISH TO TRACK "; RESOURCES ( 4 ) 
FIFTH RESOURCE YOU WISH TO TRACK " ; RESOURCES ( 5 ) 



: THE JOB OVERHEAD 
GOTO 9050 



COST PER UNIT DURATION' 



OHC 



ENTERING DATA FOR EACH ACTIVITY WITHIN THE PROJECT" 



CODE NUMBER 
DESCRIPTION 
DURATION FOR 
EP: GOTO 

COST PER 



FOR THIS ACTIVITY"; ACT ( N ) : PRINT 

FOR THIS ACTIVITY"; DESC$(N): PRINT 

THIS ACTIVITY"; DUR(N): PRINT 

9400 

UNIT DURATION FOR THIS ACT I VI TY " ; C OS T ( N ) 



PRINT 
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>550 IP COST ( N ) <0 THEN BEEP: GOTO 9500 

>600 INPUT "THIS ACTIVITY IS DEPENDENT UPON HOW MANY ACTIVITIES BEING COMPLETED" 
; D: PRINT 

>650 IP D<0 THEN BEEP: GOTO 9600 

>700 IF D>MM1 THEN BEEP: COLOR 12: PRINT "MAXIMUM OF "; MM1 ; "DEPENDENCIES ONLY" 

I FOR X = 1 TO 2000: NEXT: COLOR 7: CLS : PRINT: GOTO 9600 
>750 IF DOO THEN 9950 
>800 K ( N ) =0 
>850 DEPON ( N , 1 ) =0 
>900 GOTO 10750 
>950 K ( N ) =D 
0000 FOR X=1 TO D 



0050 


IF 


D 


= 


1 


THEN 


DEPS = 


"": GOTO 10600 


0100 


IF 


X 


= 


1 


THEN 


DEPS = 


"FIRST" 


0150 


IF 


X 


= 


2 


THEN 


DEPS = 


"SECOND" 


0200 


IF 


X 




3 


THEN 


DEPS = 


"THIRD" 


0250 


IF 


X 


- 


4 


THEN 


DEPS = 


"FOURTH" 


0300 


IF 


X 


= 


5 


THEN 


DEPS = 


"FIFTH" 


0350 


IF 


X 


= 


6 


THEN 


DEPS = 


"SIXTH" 


0400 


IF 


X 


= 


7 


THEN 


DEPS = 


"SEVENTH" 


0450 


IF 


X 


= 


8 


THEN 


DEPS = 


"EIGHTH" 


0500 


IF 


X 




9 


THEN 


DEPS = 


"NINTH" 


0550 


IF 


X 


= 


10 


THEN 


DEPS = 


"TENTH" 


0600 


PRINT 




"INPUT " 


DEPS " 


DEPENDENT ACTIVITY CODE NUMBER ";: I NPUT DEPON(N.X) 



INT 

0650 IF DEPON ( N , X ) < 1 THEN BEEP: GOTO 10600 
0700 NEXT X 

0750 INPUT "DOES THIS ACTIVITY USE ANY OF THE IDENTIFIED RESOURCES (Y/N)";A$ 

0800 IF A$ = "Y" OR A$ = ”y" THEN 10950 

0850 IF A$ = "N" OR A$ = "n" THEN 11200 

0900 BEEP.-GOTO 10750 

0950 FOR X = 1 TO 5 

1000 IF RESOURCES ( X ) = "" THEN 11150 

1050 PRINT "HOW MANY " ; RESOURCES ( X ); " DO YOU NEED FOR THIS ACTIVITY"; 

1100 INPUT RESOURCE ( N , X ) 

1150 NEXT 

1200 PRINT: INPUT "DO YOU NEED TO REASK QUESTIONS FOR THIS ACTIVITY (Y or N)";A$ 
PRINT 

1250 IF AS = " Y " OR A$="N" OR AS = "y" OR AS = " n " THEN 11300 ELSE BEEP: GOTO 112 

0 

1300 IF AS = "Y" OR AS = "y" THEN GOTO 9200 

1350 INPUT "ENTER ANOTHER ACTIVITY (Y or N)"; AS: PRINT 

1400 IF A$= " Y" OR AS = " N " OR AS = "y" OR AS = "n" THEN 11450 ELSE BEEP: GOTO 113 

0 

1450 IF AS = "N" OR AS = "n" THEN CLS: GOTO 11550 

1500 N=N+ 1 : GOTO 9200 

1550 PRINT X$ " PROGRAM MENU " X$ : PRINT: PRINT: GOTO 6350 

1600 REM ********************************************************************* 
1650 REM ************************************************** vi EW DATA ON SCREEN 
1700 REM ********************************************************************* 

1750 PRINT TAB (60 ) ; V$ 

1800 PRINT TAB ( 1 0 ) ; "PROJECT: "; PROJS : PRINT 

1850 PRINT X$ " LISTING OF ACTIVITIES " X$ : PRINT 

1900 PRINT TAB (44 ); "RESOURCES REQ'D" 

1950 PRINT TAB(1 ); "ACT. " ;TAB(7) ; "DESCRIPTION" ;TAB(25) ; "DUR. " ;TAB(30) ; "UNIT COST 
; TAB (43 ) ; "#1" ; TAB (47 ) ; "#2" ; TAB (51 ) ; "#3" ; TAB (55 ) ; "#4" ; TAB ( 59) ; "#5" ; TAB (66 ) ; "DEP 
NDENCIES " : PRINT 
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TAB 


(1) 


PR 


INT 


US 


ING 


PIS 


;ACT(X) ; 






TAB 


(7) 


PR 


INT 


US 


ING 


P2$ 


; D E S C $ ( X ) 


l 




TAB 


(25) 


PR 


INT 


US 


ING 


PIS 


;DUR(X) ; 






TAB 


(29) 


PR 


INT 


US 


ING 


P3S 


; COST ( X ) ; 






TAB 


(42) 


PR 


INT 


US 


ING 


PIS 


; RESOURCE 


(X, 


1) ; 


TAB 


(46) 


PR 


INT 


US 


ING 


PIS 


; RESOURCE 


(X, 


2) ; 


TAB 


(50) 


PR 


INT 


US 


ING 


PIS 


; RESOURCE 


(X, 


3) ; 


TAB 


(54) 


PR 


INT 


US 


ING 


PIS 


; RESOURCE 


(X, 


4 ) ; 


TAB 


(58) 


PR 


INT 


US 


ING 


PIS 


; RESOURCE 


(X, 


5 ) ; 


TAB 


(66) ; 


















= 1 


TO MM 1 
















4 


OR Y 


= 7 


OR 


Y 


= 10 


THEN PRINT 


TAB 


(66) 



12850 



12000 
12050 
L 2 1 0 0 
12150 
12200 
.2250 
12 3 0 0 
2350 
2400 
2450 
2500 
2550 
2600 
2650 
2700 
2750 
2800 
2850 
2900 
2950 
3000 
) 

3050 
3100 
3150 
3200 
0 

3250 IF A $ = " Y " 

3300 INPUT "DO 
)"; A$ 

3350 IF A$ = "N" OR A$ = "n" THEN CLS 
INT : PRINT : GOTO 6350 
3400 IF A$ = "Y” OR A$ = "y" 

COLOR 12: PRINT "PLEASE 

LPRINT TAB ( 6 0 ) ; V$ 

TAB( 10) ; "PROJECT: " ; PROJ$ : LPRINT 

X$ " LISTING OF ACTIVITIES 

TAB ( 44 ); "RESOURCES REQ'D" 

TAB ( 1 ) ; "ACT . " ; TAB ( 7 ) ; "DESCRIPTION" ; TAB ( 25 ) ; "DUR . " ; TAB ( 30 ) ; "UNIT COS 
#2" ; TAB (51) ; "#3" ; TAB (55) ; "#4" ; TAB (59) ; "#5" ; TAB (66) ; ” DE 



FOR X = 1 TO N 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
FOR Y 
IF Y = 

A= Y+ 1 : B=DEPON ( X , A ) 

PRINT USING P5$ ; DEPON(X,Y) 
IF B = 0 THEN PRINT " ": GOTO 

NEXT Y 
NEXT X 

PRINT: PRINT 

FOR X = 1 TO 5 
IF RESOURCES ( X ) = 



GOTO 13050 ELSE PRINT "RESOURCE # " ; X 



; RESOURCES ( 



NEXT 

PRINT : PRINT 
INPUT "PRINT 
IF AS = " Y " OR 



HARD COPY 
A $ = " N " OR 



(Y/N) 
AS = 



; AS 
n" OR 



AS = 



THEN 13250 ELSE BEEP: GOTO 131 



OR 

YOU 



AS = ’ 
WISH 



y" 

TO 



THEN 13500 
SEE THE CPM 



TABLE WITH START AND FINISH DATES (Y OR 



PRINT X$ 



PROGRAM MENU 



X$ : P 



3450 

3500 

3550 

3600 

3650 

3700 



THEN 20000 
ENTER Y OR 



N 



LPRINT 

LPRINT 

LPRINT 

LPRINT 



COLOR 7: GOTO 13300 



X$ : LPRINT 



" ; TAB (43) ; "#1" ; TAB (47) 
I2NDENCIES" : PRINT 

FOR X = 1 TO N 
LPRINT TAB ( 1 ) 



3750 



3800 
3850 
3900 
3950 
1000 
1050 
1100 
1150 
'.12 0 0 
4250 
1300 
1350 
1400 
1450 
;500 



LPRINT 

LPRINT 

LPRINT 

LPRINT 

LPRINT 

LPRINT 

LPRINT 

LPRINT 

LPRINT 

FOR Y = 

IF Y = 

A = Y + 1 : 
LPRINT 
IF B = 0 



: LPRINT USING 

TAB ( 7 ) : LPRINT USING 

TAB ( 25 ) : LPRINT USING 

TAB (29) : LPRINT USING 

TAB ( 4 2 ) : LPRINT USING 

TAB ( 46 ) : LPRINT USING 

TAB ( 50 ) : LPRINT USING 

TAB (54 ) : LPRINT USING 

TAB (58 ) : LPRINT USING 

TAB ( 66 ) ; 

1 TO MM1 

4 OR Y = 7 OR Y = 10 THEN LPRINT TAB(66) 
B = DEPON ( X , A ) 

USING P5S ; DEPON ( X , Y ) ; 

THEN LPRINT: GOTO 14650 



PIS ; ACT (X ) ; 

P2S; DESCS(X) ; 
PIS; DUR ( X ) ; 

P3$ ; COST ( X ) ; 

PIS ; RESOURCE ( X , 1 ) 
P1$;RES0URCE(X,2) 
P1$;RES0URCE(X,3) 
P1$;RES0URCE(X,4) 
P1$;RES0URCE(X,5) 
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[ 



4550 


NEXT Y 




4600 


LPRINT 




4650 


NEXT X 




4700 


LPRINT: LPRINT 




4750 


FOR X = 1 TO 5 




4800 


IF RESOURCES ( X 


) = 


X) 






4850 


NEXT 




4900 


LPRINT CHRS (12 


) : 


4950 


INPUT "DO YOU 


WIS 


)"; AS 




5000 


IF AS = "Y" OR 


AS 


5050 


IF AS = "N" OR 


AS 



GOTO 13050 ELSE LPRINT "RESOURCE #";X; "= ";RESOURCE$ 



CLS : PRINT X$ " 

H TO SEE THE CPM 



PROGRAM 
TABLE WITH 



MENU " X$ : PRINT: PRINT 

START AND FINISH DATES (Y OR 



"y" THEN 20000 

"n" THEN CLS : PRINT X$ " PROGRAM MENU " X$:PR 

NT : PRINT : GOTO 6350 
5100 GOTO 6350 

REM ********************************************************************* 

REM ******* ******* ***** ********* ******* ********* g d i t AN EXISTING ACTIVITY 
********************************************************************* 



5150 
5200 
5250 
5300 
3R THE 
5350 IF 



CLS : INPUT 



DO YOU WISH TO CHANGE THE PROJECT OVERHEAD COST 
INITIAL START DATE (Y/N)" ;A$ 

OR A$ = "y" OR A$ = "N" OR A$ = "n" THEN 15400 



RESOURCE NAMES 



ELSE BEEP: 



5 4 0 0 
5450 
5500 
5 5 5 0 
5600 
5650 

5700 
5 7 50 
5800 
5850 
5 9 00 
5950 
5000 
5050 
5100 
515 0 
5200 



1300 

5350 

1400 
1 450 

1 500 
1 550 



OR A$ = "n" THEN 17050 



14 



TO MAINTAIN DEFAULT VALUE IN BRACKETS' 



IN DOLLARS PER UNIT TIME IS ["OHC"] 



[ "RESOURCES (X ) " ] " ; : INPUT " " , RESOURCE 1$ 



AS = "Y' 

GOTO 15300 
IF AS = "N' 

REM 

CLS .-COLOR 

PRINT "STRIKE RETURN 
COLOR 7 

PRINT : PRINT "OVERHEAD COST 
.-INPUT " " , 0 H C 1 $ 

IF 0HC1S = "" THEN 15800 
OHC = VAL(OHCIS) 

FOR X = 1 TO 5 

PRINT : PRINT "RESOURCE #"X" IS 
IF RESOURCE 1 $ = "" THEN 16000 
RESOURCES ( X ) = RES0URCE1S 

NEXT 

JDATE(l) = SJDATE 
X = 1 

GOSUB 44050 

PRINT : PRINT "THE CURRENT START DATE FOR THE FIRST ACTIVITY IS " ; CALDATED ; 
CALDATEMS ; CALDATEY; " (Y/N). 

5250 INPUT " " , AS 

IF AS = "" OR AS = "y" OR AS = 

GOSUB 44050 : PR I NT : PR I NT "WHAT 

" ] " ; : INPUT " " ; S J1S 

IF SJ1S = "" THEN SJS = STRS ( CALDATEY ) : GOTO 16550 

IF ASC(RIGHT$ (SJ1$ , 1 ) ) >= 48 AND AS C ( R I GHTS ( S J 1 $ , 1 ) ) 

GOTO 16550 

COLOR 1 2 : PR I NT "PLEASE ENTER THE YE AR " : COLOR 7.-G0T0 16350 
PRINT : PRINT "WHAT MONTH DOES THIS PROJECT START (ENTER VALUE OF 1 
"CALDATEMS;"]" INPUT "";DA1$ 

1600 IF DAIS = "" THEN A$=A$:IF DAS 



"Y" THEN 17000 

YEAR DOES THIS PROJECT START ["; CALDATEY ; 



<= 57 THEN SJ$=SJ1$ 



TO 12) [ 



<> 



THEN 167 50 : GOSUB 46050 .-GOTO 16750 



1 650 
1 700 

1 750 



DAIS: GOTO 16750 

REPRESENT THE MONTH" 



IF VAL(DAIS) >= 1 AND VAL(DAIS) <= 12 THEN DAS = 

COLOR 12: PRINT "ENTER A INTIGER FROM 1 TO 12 TO 
COLOR 7 : GOTO 16550 

PRINT : PRINT "WHAT DAY OF THE MONTH DOES THIS PROJECT START ["; CALDATED ; " ] 

.-INPUT " " ; T E 1 $ 
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6800 

6850 

6900 

6950 

7000 

7050 



CHAC 



IF TE1 $ = "" THEN 16950 

IF VAL ( TE 1 $ ) >= 1 AND VAL(TE1$) <= 31 THEN TE$ = TE1$:G0T0 16950 

COLOR 12: PRINT "ENTER AN INTIGER FROM 1 TO 31 TO REPRESENT THE DAY’ 

COLOR 7 : G 0 T 0 16750 
GOSUB 45100 
GOTO 6150 

CLS : INPUT "ENTER THE CODE NUMBER OF THE ACTIVITY YOU WISH TO EDIT. 

: PRINT 

7100 COLOR 1 4 : P R I N T "TO KEEP THE DEFAULT VALUE INDICATED USE THE (RETURN) KEY." 

PRINT:COLOR 7 

7150 FOR CH = 1 TO N 

IF ACT ( C H ) <> CHACT THEN GOTO 17300 

M=CH : GOTO 17450 

NEXT CH 

COLOR 12: PRINT "CODE NUMBER DOES NOT MATCH AN EXISTING ACTIVITY": COLOR 7 



7 200 
7250 
7300 
7350 



PRINT 

/400 INPUT 



;7 4 5 0 
K500 
V 5 5 0 
l r 60 0 
l r 650 
I' 7 0 0 
l’750 
1800 
1850 
1900 
1950 

l 000 
050 
100 
150 
200 
L 250 
1 300 
1 350 
OR 



"PUSH [ENTER] TO RETURN TO MAIN 

(" 



MENU"; G$: GOTO 19800 

ACT ( M ) " ) " ; : INPUT ACT1$ 



PRINT 



INPUT DUR 1 $ : PRINT 



PRINT "ENTER ACTIVITY CODE NUMBER 
IF ACT1 $ = "" THEN 17600 
ACT ( M ) = VAL ( ACT 1 $ ) 

PRINT "ENTER ACTIVITY DESCRIPTION: (" DESC$(M) ")";:INPUT DESC1$: PRINT 

IF DES C 1 $ = "" THEN 17750 
DESC$(M) = DESC1 $ 

PRINT "ENTER ACTIVITY DURATION: ( 

IF DUR 1 $ = "" THEN 17900 
DUR(M) = VAL ( DUR 1 $ ) 

IF DUR ( M ) < 1 THEN BEEP: GOTO 17750 

PRINT "ENTER ACTIVITY COST PER UNIT DURATION: (" COST(M) ") 

: PRINT 

IF COSTS = "" THEN 18100 
COST ( M ) = VAL ( COSTS ) 

IF COST ( M ) <0 THEN BEEP: GOTO 17950 
PRINT "ENTER NUMBER OF DEPENDENCIES 



INPUT COSTS 



( " K ( M ) " ) " ; 

IF D1S = "" THEN D = K ( M ) : GOTO 18300 

D = VAL(DIS) 

IF D < 0 THEN BEEP: GOTO 18150 

IF D>MM 1 THEN BEEP: COLOR 31: PRINT "MAXIMUM OF " 

X=1 TO 2000: NEXT: COLOR 7: CLS: PRINT: GOTO 18150 



19500 



INPUT D1S: PRINT 



MM1 "DEPENDENCIES ONLY" 



1400 


IF 


D 


<> 


0 


THEN 


18500 




1450 


K(M) 


= 


0 : 


DEPON ( M , 1 


) = 


0: GOTO 1 


1500 


K ( M ) 


= 


D 










l 550 


FOR 


: X 


= 


1 


TO D 








1600 


IF 


D 


= 


1 


THEN 


DEPS 


= 


"": GOTO 


1650 


IF 


X 


= 


1 


THEN 


DEPS 


= 


"FIRST" 


700 


IF 


X 


= 


2 


THEN 


DEPS 


= 


"SECOND" 


.750 


IF 


X 


= 


3 


THEN 


DEPS 




"THIRD" 


800 


IF 


X 


= 


4 


THEN 


DEPS 


= 


"FOURTH" 


850 


IF 


X 


= 


5 


THEN 


DEPS 


= 


"FIFTH" 


900 


IF 


X 


= 


6 


THEN 


DEPS 


= 


"SIXTH" 


950 


IF 


X 


= 


7 


THEN 


DEPS 


z= 


"SEVENTH" 


000 


IF 


X 


= 


8 


THEN 


DEPS 


= 


"EIGHTH” 


050 


IF 


X 


= 


9 


THEN 


DEPS 


= 


"NINTH" 


100 


IF 


X 


= 


10 


THEN 


DEPS 


= 


"TENTH" 


150 


PRINT 


tf 


INPUT " 


DEPS 


it 


DEPENDENT 



19150 



DEPONS: PRINT 
1200 IF DEPONS = "" THEN 19300 
250 DEPON(M.X) = VAL(DEPONS) 



ACTIVITY CODE NUMBER (" DEPON(M.X) ")";:INP 



136 



19300 
19350 
19400 
19450 
19500 
19550 
19600 
19650 
19700 
19750 
19800 
19850 
19900 
19950 
20000 
20050 
20100 
20150 
20200 
20250 
20300 
20350 
20400 
20450 
20500 
20550 
20600 
20650 
20700 
20750 
20800 
20850 
20900 
20950 
21000 
21050 
21100 
21150 
21200 
21250 
21300 
21350 
21400 
21450 
21500 
CT (X) 
21550 
21600 
21650 
21700 
21750 
2 1800 
21850 
21900 
21950 
22000 
22050 



THEN BEEP: GOTO 19150 



NEXT X 



NEEDED IS [" RESOURCE(M,X) " ] " ; 



"INITIALIZING VARIABLES" 
EF, LS, LF, TF, ACTCOST 
ES(MM), EF(MM) 



PRE-SORTING 
TO MM1 



IN 



LS (MM) , 
PROGRESS' 



PRINT 



LF(MM), TF(MM), ACTCOST(MM) 



PRINT 



IF DEP0N(M,X)<1 
NEXT X 

IF D+ 1 >MM 1 THEN 19800 
FOR X = D+l TO MM 1 : DEP0N(M,X)=0 

FOR X = 1 TO 5 

PRINT : PRINT "THE NUMBER OF "RESOURCES (X) " 

INPUT ” " , RES0URCE1S 

IF RE SOUR CE 1 $ = ” " THEN GOTO 19750 
RESOURCE ( M , X ) = VAL ( RESOURCE 1 $ ) 

NEXT 

CLS : PRINT X$ " PROGRAM MENU ” X$ : PRINT: PRINT: GOTO 6350 

REM ********************************************************************* 
REM ************************************************ *RUN CPM CALCULATIONS 
********************************************************************* 

IF CALCRUNS = ” N " THEN 24950 

CLS 

COLOR 14 
PRINT TAB ( 30 ) 

ERASE PED, ES, 

DIM PED ( MM ,10) 

CALCRUNS = "N" 

PRINT TAB ( 30 ) ; 

FOR PRESORT = 

FOR X = 1 TO N 
IF K ( X ) = 0 THEN 21650 
FOR Y = 1 TO K ( X ) 

FOR Z = 1 TO X 
IF DEPON ( X , Y ) = ACT ( Z ) 

NEXT Z 

FOR ZZ = X TO N 

IF DEPON ( X , Y ) <> ACT ( Z Z ) THEN 21450 
AA= ACT ( X ) : ACT ( X ) = ACT ( Z Z ) : ACT(ZZ)=AA 

BB$=DESC$ ( X ) : DESCS ( X ) =DESC$ ( ZZ ) : DESC$ ( ZZ ) =BB$ 

CC=DUR ( X ) : DUR (X) =DUR ( ZZ ) : DUR(ZZ)=CC 

DD=COST ( X ) : COST ( X ) =COST ( ZZ ) : COST(ZZ)=DD 

EE = K ( X ) : K ( X ) =K ( Z Z ) : K(ZZ)=EE 

FOR YY = 1 TO MM 1 

FF = DEPON ( X , YY ) : DEPON ( X , YY ) =DEPON ( Z Z , YY ) : DEPON ( Z Z , YY )= FF 
NEXT YY 

FOR YY = 1 TO 5 

GG = RESOURCE(X, YY) : RESOURCE ( X , YY ) =RESOURCE ( Z Z , YY ) : RESOURCE ( ZZ , YY ) =GG 

NEXT YY 
GOTO 21650 
NEXT ZZ 



THEN 21600 



COLOR 31: PR 

FOR DELAY= 1 
NEXT Y 

NEXT X: NEXT 
PRINT TAB ( 30 
FOR X=1 TO N 
LT= ACT ( X ) 

FOR Z = 1 TO N 
FOR Y = 1 TO MM 1 
LH = DEPON ( Z , Y ) 

IF LH=0 THEN 22200 
IF LTOLH THEN 22150 



INT 


"DEPENDENT 


ACTIVITY" DEPON 


(X, Y) 


TO 


2000: NEXT: 


COLOR 7: GOTO 


19800 


PR 
) ; 


ESORT 

"PERFORMING 


CALCULATIONS" : 


PRINT 



"NOT FOUND FOR ACTIVITY" A 



137 



22100 
"2 2150 
22200 
122250 
22300 
22350 
22400 
22450 
22500 
22550 
2 2 6 0 0 
22650 
22700 
22750 
22800 
22850 
2 2 9 0 0 
22950 
23000 
23050 
23100 
23150 
23200 
23250 
23300 
123350 
^23400 
13450 
23500 
23550 
23600 
23650 
23700 
23750 
23800 
3850 
.3900 
3950 
4000 
4050 
4 100 
4150 
4200 
4250 
4300 
4350 
4400 
4450 
4500 
4550 
4600 
4650 
4700 
4750 
4800 

1 4850 
4900 



PED ( Z , Y ) =X 
NEXT Y 
NEXT Z 
NEXT X 

FOR X = 1 TO N 

IF K ( X ) = 0 THEN 22650 

FOR Y = 1 TO K ( X ) 

J = PED(X.Y) 

IF ES ( X ) < ES ( J ) +DUR ( J ) THEN ES ( X ) = E S ( J ) +DUR ( J ) 

NEXT Y 

GOTO 22700 

ES ( X ) = 0 

NEXT X 

FOR X=N TO 1 STEP -1 
IF X <> N THEN 22900 
LF(X)=ES(X)+DUR(X) : GOTO 23400 
W=LF ( N ) 

FOR J=(X+1) TO N 
IF K ( J ) =0 THEN 23300 
FOR K= 1 TO K ( J ) 

IF PED ( J , K ) =X THEN 23250 
NEXT K 
GOTO 23300 

IF LF ( J ) -DUR ( J ) < W THEN W=LF ( J ) -DUR ( J ) 

NEXT J 
LF ( X ) =W 
NEXT X 



TT=0 : JOBCOST = 0 
FOR X = 1 TO N 

EF(X)=ES(X)+DUR(X) : LS ( X ) =LF ( X ) -DUR ( X ) : TF ( X ) =LF ( X ) -DUR ( X ) -ES ( X ) 
ACTCOST(X)=COST(X)*DUR(X) : JOBCOST = JOBCOST +• ACTCOST(X) 

IF EF ( X ) >=TT THEN TT=EF ( X ) 

NEXT X 

PRINT TAB ( 30 ) ; "SORT BY EARLY START" :PRINT 
COLOR 7 

FOR SORT = 1 TO MM1 
FOR X = 1 TO ( N - 1 ) 



XX = X+1 

IF ES ( X ) <ES ( XX ) THEN 24900 

AA= ACT ( X ) : ACT ( X ) = ACT ( XX ) : ACT(XX)=AA 

BB$=DESC$ ( X ) : DESC$ ( X ) =DESC$ ( XX ) : DESC$ ( XX ) =BB$ 

CC=DUR ( X ) : DUR ( X ) =DUR ( XX ) : DUR(XX)=CC 

DD=COST ( X ) : COST ( X ) =C0ST ( XX ) : COST(XX)=DD 

EE=ACTCOST ( X ) : ACTCOST ( X ) =ACTCOST ( XX ) : ACTCOST ( XX ) =EE 

FF = K ( X ) : K ( X ) = K ( X X ) : K(XX)=FF 

FOR Y = 1 TO MM1 

GG=DEPON(X,Y) : DEPON ( X , Y ) =DEPON ( XX , Y ) : DEPON ( XX , Y ) =GG 

NEXT Y 

ES ( XX ) =HH 
EF ( XX ) = 1 1 
LS ( XX ) = J J 
LF (XX) =KK 
TF ( XX ) =LL 



HH=ES (X) 
1 1 =EF ( X ) 
J J=LS ( X ) 
KK=LF ( X ) 
LL=TF ( X ) 
FOR YY = 



ES(X)=ES( XX ) : 

EF ( X ) =EF ( XX ) : 

LS (X) =LS (XX) : 

LF ( X ) =LF ( XX ) : 

TF (X) =TF (XX) : 

1 TO 5 

GG = RESOURCE ( X , YY ) : RESOURCE ( X , YY ) =RESOURCE ( ZZ , YY ) 

NEXT YY 

NEXT X: NEXT SORT 



RESOURCE(ZZ, YY ) =GG 
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24950 

25000 

25050 

25100 

25150 

25200 

25250 

25300 

25350 

25400 

25450 

25500 

25550 

25600 

25650 

25700 

25750 

25800 

25850 

25900 

25950 

26000 

26050 

26100 

26150 

26200 

26250 

26300 

26350 

26400 

26450 

)0 

>6500 



CLS 
REM 
REM 
REM 

IF GANTS = "Y" 
IF HISTS = "Y” 
PRINT TAB ( 60) ; 

TAB ( 10) ; 
X$ ” 

TAB ( 4 ) ; " 
TAB ( 48 ) ; 
TAB ( 77 ) ; 
= 1 TO 
TAB ( 4 ) : 
TAB ( 9 ) : 
TAB ( 25 ) 
TAB ( 32 ) 
TAB ( 47 ) 



***************************************************************** C * * * 

********************************* **** DISPLAY CALCULATED VALUES TABLE 
******************************************************************** 

THEN 27950 
THEN 39700 
V$ 

"PROJECT: " 

C PM NETWORK 
ACT . " ; TAB ( 9 ) 

"ES " ; TAB ( 54 ) 

"CP" 



P R 0 J $ : PRINT 

ANALYSIS 
"DESCRIPTION" 
"EF" ; TAB (60) ; ' 



N 



PRINT USING PIS; ACT ( X ) ; 

PRINT USING P2S ; DESCS ( X ) ; 
PRINT USING PIS; DUR ( X ) ; 
PRINT USING P7$;ACTC0ST(X) ; 
PRINT USING P4$ ; ES ( X ) ; EF ( X ) 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
FOR X 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 

IF TF ( X ) = 0 
PRINT 
NEXT X 
PRINT 

PRINT "TOTAL DURATION OF PROJECT IS: 
PRINT "DIRECT COST OF PROJECT IS: "; 

PRINT USING P6S ; JOBCOST: PRINT 

PRINT "INDIRECT COST OF PROJECT IS: " 

PRINT USING P6$ ; OHC * TT : PRINT 
PRINT "TOTAL COST FOR PROJECT IS: "; 

PRINT USING P6S; JOBCOST + (OHC * TT ) 
INPUT "PRINT HARD COPY (Y or N)";A$ 



X$ : PRINT 

TAB ( 25 ) ; "DUR 
LS" ; TAB (66) ; ' 



" ; TAB (41 ) ; "COST’ 
LF" ; TAB (72) ; "TF' 



L S ( X ) ; LF ( X ) ;TF(X) 



THEN PRINT CHR$(17): GOTO 25950 



TT: PRINT 



PRINT 



IF A $ = " Y " OR A $ = " N " OR AS = 



OR AS = 



THEN 26500 ELSE BEEP: GOTO 264 



IF 



OR AS = 



A $ = " N " 
;:NT:GOTO 6350 
>.6550 LPRINT TAB(60) 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
FOR X = 



THEN CLS : PR I NT X$ 



PROGRAM MENU 



X$ : PRINT : PR 



>6600 
!6650 
! 6 7 00 
! 6 7 5 0 
!6800 
1:6850 
16 9 0 0 
6950 
,7000 
7050 
7100 
7150 
7200 
7250 
7300 
7350 
7400 
7450 
7500 
7550 
7600 
7650 



TAB ( 10 ) 
X$ " 

TAB ( 4 ) ; 
TAB (48 ) 
TAB ( 77 ) 
1 TO N 



; VS 

; "PROJECT: " 

CPM NETWORK 
"ACT . " ; TAB ( 9 ) 

; "ES" ; TAB ( 54 ) 
; "CP" 



PRO J $ : LPRINT 

ANALYSIS 
"DESCRIPTION" 
"EF" ; TAB ( 60 ) ; ' 



X$ : LPRINT 

TAB (25) ; "DUR. " ; TAB ( 4 1 ) ; "COST" 
LS" ; TAB (66) ; "LF" ; TAB (72) ; "TF" 



LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
IF TF ( X ) =0 
LPRINT 
NEXT X 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 



TAB ( 4 ) : 
TAB ( 9 ) : 
TAB ( 25 ) 
TAB ( 32 ) 
TAB ( 47 ) 
THEN 



LPRINT USING 
LPRINT USING 
LPRINT USING 
LPRINT 
LPRINT 
LPRINT 



USING 

USING 
" * " 



PIS ; ACT (X) ; 

P2$ ; DESCS ( X ) ; 

PIS ; DUR (X) ; 

P7S ; ACTCOST ( X ) ; 
P4 $ ; ES ( X ) ; EF ( X ) 
: GOTO 27250 



LS ( X ) ; LF ( X ) ; TF ( X ) 



"TOTAL DURATION 
"DIRECT COST OF 
USING P6S 
"INDIRECT 



OF PROJECT IS 
PROJECT IS: ” 

JOBCOST: LPRINT 

COST OF PROJECT IS: 



TT: LPRINT 



USING P6S; OHC * TT : LPRINT 
"TOTAL COST FOR PROJECT IS: 
USING P6S; JOBCOST + (OHC * 



TT): LPRINT 
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IV IV 



27700 LPRINT CHR$(12): CLS: PRINT X$ " PROGRAM MENU " X$ : PRINT: PRINT 

27750 GOTO 6350 

27800 REM ********************************************************************* 
27850 REM ****************************** ********************** GANTT (BAR) CHART 
27900 REM ********************************************************************* 
27950 GANT$ = "Y" 

28000 IF CALCRUN$ = "Y" THEN 20000 
28050 GANT$ = " N " 

8100 TTT = TT 

8150 IF TTT < 5 THEN TTT = 5 
28200 IF TTT > 5 AND TTT < 10 THEN TTT = 10 
28250 NUM = TT/5 : FACTOR = 50/TT: MA = FACTOR 
28300 PRINT TAB(60); V$ 

28350 PRINT TAB ( 1 0 ) ; " PRO JECT : PROJS : PRINT 

28400 PRINT X$ ” GANTT (BAR) CHART " X$:PRINT :PRINT 

2 84 50 PRINT TAB ( 2 4 ) ; ” 0 " ; T AB ( 3 3 ) ; I NT ( 1 *NUM) ; TAB (43 ) ; I NT ( 2*NUM) ; TAB (53 ) ; I NT ( 3* NUM) 
; TAB (63) ; INT(4*NUM) ; TAB (73) ; INT(5*NUM) 

28500 PRINT ’’ ACT . " ; T AB ( 6 ) ; " DES CR I PT I ON " ; T AB ( 2 4 ) ; C HRS ( 1 9 5 ) ; 

>8550 FOR X=1 TO 11 

>8600 PRINT Y$ ; : PRINT U$ ; 

28650 NEXT X 
28700 PRINT 
>8750 FOR X=1 TO N 

28800 PRINT USING P 1 $ ; ACT ( X ) ; : PR I NT TAB ( 6 ) ; : PR I NT USING P2 $ ; DESCS ( X ) ; 

28850 START&=(ES(X) *MA ) : F I N I SH%= ( ( EF ( X ) ) *MA ) 

28900 FLOATS=(TF(X)*MA) 

28950 FOR BAR = START* TO FINISH* 

29000 IF TF ( X ) =0 THEN 29100 

29050 PRINT TAB ( 2 4 +B AR ) ; CHR$(176);: GOTO 29150 

29100 PRINT TAB ( 24+BAR ) ; CHR$(219); 

[29150 NEXT BAR 

29200 IF TF ( X ) =0 THEN PRINT: GOTO 29300 

29250 FOR SLACK=1 TO FLOAT*: PRINT CHR$ ( 46 ) ; : NEXT SLACK: PRINT 

29300 NEXT X 

29350 PRINT: PRINT 

29400 PRINT "TOTAL DURATION: TT ; TAB ( 5 2 ) ; " LEGEND : " : PRINT 

29450 PRINT "DIRECT COST: ";:PRINT USING P6$ ; JOBCOST;: PRINT TAB ( 58 ) ; " CR IT I CAL 

*ATH: "; 

29500 FOR X= 1 TO 5: PRINT CHR$(219);: NEXT: PRINT 

29550 PRINT "INDIRECT COST: ";:PRINT USING P6$;0HC*TT;: PRINT TAB(58);"N0N CRITI 

2AL : " ; 

I '9600 FOR X= 1 TO 5: PRINT CHR$(176);: NEXT: PRINT 

29650 PRINT "TOTAL COST FOR PROJECT: ";:PRINT USING P6$ ; JOBCOST+ ( OHC*TT ) ; : PRINT 

TAB ( 58 ) ; "FLOAT TIME: " ; 

29700 FOR X=1 TO 5: PRINT CHR$(46);: NEXT: PRINT 



29750 


INPUT "PRINT 


HARD 


COPY (Y 


or N ) " ; A $ 










9800 

n 


IF 


A $ = ” Y " OR 


A $ = " N 


” OR AS 


= "y" OR 


AS = "n" 


THEN 29850 ELSE 


BEEP: GOTO 


297 


' u 

9850 


IF 


A$ = " N " OR 


AS = 


" n " T H E N 


CLS : PR I NT 


X$ " 


PROGRAM MENU 


” X$: PRINT: 


: PRI 



IT: GOTO 6350 

9900 NUM = TT/10: FACTOR = 100/TT: MA = FACTOR 

9950 LPRINT TAB(115); V$ 

0000 LPRINT TAB ( 10 ); "PROJECT : PROJS: LPRINT 

0050 LPRINT TAB (30); X$ " GANTT (BAR) CHART " X$:LPRINT : LPR I NT CHRS ( 

V 5 ) 

0100 LPRINT TAB ( 24 ) ; " 0 " ; TAB ( 33 ) ; INT ( 1*NUM) ; TAB (43 ) ; I NT ( 2* NUM) ; TAB (53 ) ; I NT ( 3* NUM 
; TAB (63) ; INT(4*NUM) ; TAB (73) ; INT ( 5* NUM ) ; TAB (83) ; INT(6*NUM) ; TAB (93) ; INT(7*NU 
) ; TAB ( 103 ) ; INT ( 8* NUM ) ; TAB ( 113 ) ; INT ( 9*NUM ) ; TAB ( 122 ) ; INT ( 10*NUM) 
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30150 
30200 
30250 
30300 
30350 
30400 
30450 
30500 
30550 
30600 
30650 
30700 
30750 
30800 
30850 
,30900 
30950 
|3 1 0 0 0 
31050 
31100 



"DESCRIPTION" ; TAB (24) ;CHR$(195) 



LPRINT "ACT . " ; TAB ( 6 ) 

FOR X=1 TO 21 

LPRINT Y$ ; : LPRINT U$ ; 

NEXT X 
LPRINT 

FOR X=1 TO N 

LPRINT USING P 1 $ ; ACT ( X ) ; : LPR I NT TAB ( 6 ) ; 
STARTS = ( ES ( X ) *MA ) : F I N I S H* = ( ( EF ( X ) )*MA) 

FLOAT£=(TF(X)*MA) 

FOR BAR = START* TO FINISH* 

IF TF ( X ) =0 THEN 30750 
LPRINT TAB ( 2 4 + BAR ) ; CHR$(176) 

LPRINT TAB ( 24+BAR ) ; CHR$(219) 

NEXT BAR 

IF TF ( X ) =0 THEN LPRINT: GOTO 

FOR SLACK= 1 TO FLOAT*: LPRINT 

NEXT X 

LPRINT: LPRINT 

LPRINT "TOTAL DURATION 
LPRINT "DIRECT COST: " 



LPRINT USING P2$;DESC$(X) 



GOTO 30800 



30950 
CHR$ (46 ) 



NEXT SLACK: LPRINT 



" ; TT; TAB ( 8 2 ) ; " LEGEND : " : LPRINT 

LPRINT USING P6$ ; JOBCOST;: LPRINT TAB(88) 



CRITIC 



IL PATH: 

31150 FOR X = 1 TO 5: LPRINT CHR$(219);: NEXT: LPRINT 

31200 OPEN PRO J$ FOR APPEND AS #1:CL0SE 

31250 LPRINT "INDIRECT COST: ";:LPRINT USING P6$;0HC*TT;: LPRINT TAB ( 8 8 ) ; " NON CR 

iTICAL: 

!1300 FOR X = 1 TO 5: LPRINT CHR$(176);: NEXT: LPRINT 

(1350 LPRINT "TOTAL COST FOR PROJECT: ";:LPRINT USING P6$ ; JOBCOST+ ( OHC *TT ) ; : 

LPRINT T A B ( 8 8 ) ; "FLOAT TIME: 

(1400 FOR X=1 TO 5: LPRINT CHR$(46);: NEXT: LPRINT: LPRINT CHR$(18) 

(1450 LPRINT CHR$ ( 12 ): CLS : PRINT X$ " PROGRAM MENU " X$ : PRI NT : PR I NT 
(1500 GOTO 6350 

1550 REM ********************************************************************* 
1600 REM ************************************************** ^DELETE AN ACTIVITY 
1650 REM ********************************************************************* 
1700 CALCRUNS = "Y" 

1750 HISTCALCS = "Y" 

1800 INPUT "ENTER CODE NUMBER OF ACTIVITY YOU WISH TO DELETE DELACT : PR I NT 
1850 FOR DEL = 1 TO N 

1900 IF ACT ( DEL ) <> DELACT THEN GOTO 32050 

1950 IF DEL = N THEN GOTO 32500 
2000 GOTO 32200 
2050 NEXT DEL 

2100 COLOR 1 2 : PR I NT "CODE NUMBER DOES NOT MATCH AN EXISTING ACT I V I TY " : CO LOR 7: 
PRINT 

2150 INPUT "PUSH [ENTER] TO RETURN TO MAIN MENU" ; A B $ : GOTO 19800 

2200 FOR X = DEL TO (N-l) 

2250 ACT(X)=ACT(X+1) : DESC$ ( X ) =DESC$ ( X+ 1 ) : DUR ( X ) =DUR ( X+ 1 ) 

2300 C0ST(X)=C0ST(X+1) : K(X)=K(X+1) 

2350 FOR AC = 1 TO MM1 : DEPON ( X , AC ) =DEPON ( X+ 1 , AC ) : NEXT AC 
2400 FOR AC = 1 TO MM2: RESOURCE ( X , AC ) = RES OURC E ( X 1 , AC ) : NEXT AC 
2450 NEXT X 

2500 N=N- 1 : GOTO 6250 

2550 REM ********************************************************************* 
2600 REM ************************************************** save DATA ON FILE ? 
2650 REM ********************************************************************* 
2700 PRINT 

2750 IF NEWPRO J$ = "Y" THEN 34150 

2800 PRINT "DO YOU WISH THIS DATA TO REPLACE THE PREVIOUS DATA ON FILE (Y/N)"; 
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32850 INPUT A$ 

32900 IF A$ = "Y" OR A$ = M y" THEN GOTO 34150 
32950 IF A$ = "N" OR A$ = "n" THEN GOTO 33050 
33000 PRINT "ANSWER Y OR N . " : BEEP: GOTO 32800 

33050 PRINT 

33100 INPUT "WHAT DO YOU WISH TO CALL THE NEW PROJECT FILE (MAXIMUM 8 LETTERS)"; 
PRO J$ 

33150 IF PRO J $ = "" THEN INPUT "PLEASE START THE PROJECT NAME WITH A LETTER. 
>ROJ$ : GOTO 5200 

33200 IF LEN (PROJ$) > 8 THEN INPUT "PLEASE ENTER A NAME WITH NO MORE THAN 8 CHA 
UCTERS. ", PRO J$ : GOTO 5200 

33250 IF ASC (LEFTS (PROJS.l)) < 65 OR ASC ( LEFTS (PROJS.l)) >122 THEN INPUT 
’LEASE START THE PROJECT NAME WITH A LETTER. ",PROJ$ :GOTO 5200 
33300 IF ASC (LEFTS (PROJS.l)) > 90 AND AS C ( L EFTS (PROJS.l)) < 97 THEN INPUT 
PLEASE START THE PROJECT NAME WITH A LETTER. " , PRO J$ : GOTO 5200 

13350 NEWPROJS = "Y" 

>3400 IF PRO J$ = "PROJLIST" THEN BEEP: INPUT "PLEASE USE ANOTHER NAME",PROJ$ 

13450 MATCHS = "N" 

3500 FOR X = 1 TO LEN(PROJS) 

13550 LOWERCASE = ASC ( MID$ ( PRO J$ , X . 1 ) ) 

3600 IF LOWERCASE >= 97 AND LOWERCASE <= 122 THEN UPPERCASE = LOWERCASE - 32 
ELSE UPPERCASE = LOWERCASE 
3650 MID$(PROJ$,X, 1) = CHRS ( UPPERCASE ) 

3700 NEXT X 

3750 FOR X = 1 TO NNN 

3800 IF PRO J$ = PROJECTNAMESS (X) THEN MATCHS = ”Y" 

3850 NEXT X 

3900 IF MATCHS = "Y" THEN COLOR 12: INPUT "YOU ALREADY HAVE A FILE BY THAT NAME. 

PLASE USE ANOTHER. ",PROJ$:GOTO 5200 
3950 COLOR 7 

4000 REM ********************************************************************* 
4050 REM *************************************************** *SAVE DATA ON FILE 
4100 REM ********************************************************************* 

4150 CLS: PRINT "Saving data on file named ";PROJ$ 

4200 OPEN "PROJLIST" FOR APPEND AS #2 : CLOSE 

4250 OPEN "0", 2, "PROJLIST" 

4300 FOR NNN2 = 1 TO NNN 

4350 WRITE #2, PRO JECTNAMESS ( NNN2 ) , N 

4400 NEXT 

4450 CLOSE 

4500 IF NEWPROJS = "Y" THEN 34550 ELSE 34700 
4550 OPEN "PROJLIST" FOR APPEND AS #2 
4600 WRITE #2, PROJS , N 
4650 CLOSE 

4700 CLS: PRINT "Saving data on file named ", -PROJS 

4750 OPEN PROJS FOR APPEND AS #1 :CLOSE 
4800 OPEN "0" ,1, PROJS 

4850 WRITE *1, CALCRUNS , N, TT , JOBCOST , OHC , H I ST C AL C $ , S J D ATE 

4900 FOR X= 1 TO 10 

4950 WRITE #1, RESOURCES(X) 

5000 NEXT X 

3050 IF TT > 500 THEN TTT = 500 ELSE TTT = TT 
5100 FOR X = 1 TO TTT 
15150 WRITE #1 , JDATE(X) 

5200 FOR WQ = 1 TO 5 
• 5250 WRITE #1, DATER E C ( X , WQ ) 

>300 NEXT WQ 
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*5350 

*5400 

*5450 

*5500 

(5550 

(5600 

(5650 

15700 

.5750 

.5800 

5850 

5900 

5902 

5903 

5904 

5905 

5907 

5908 

5909 

5910 

5911 

5912 

5913 

5914 

5916 

5917 
5922 
5950 
6000 
6050 
6100 
6150 
6200 
6250 
6300 
6350 
6400 
6450 
5500 
5550 
5600 
5650 
5700 
5750 
5800 
.'5850 
.5900 
(5 9 50 
7000 
7050 
7100 
7150 
7200 
72 5 0 
17300 
'7350 
[7 4 00 



NEXT X 

FOR WQ = 1 TO N 

WRITE #1, ACT(WQ) , DESC$(WQ),DUR(WQ) ,COST(WQ) , K ( WQ ) 

WRITE #1, ACTCOST ( WQ ) , ES(WQ), EF(WQ), LS(WQ), LF(WQ), TF(WQ) 

FOR X= 1 TO 10 

WRITE #1, DEPON(WQ,X) ,RESOURCE(WQ,X) 

NEXT X 
NEXT WQ 

FOR X = 1 TO 5 

WRITE *1, DATERECMAX ( X ) 

NEXT X 
CLOSE 

REM*********************************************************************** 
REM************************************SAVE RESOURCE DATA ON SEPERATE FILE 
REM*********************************************************************** 



PRINT 


: PR 


INT "SAVING DATA 


IN RESOURCE 


PRO J 1 $ 


= 


PRO J$ + ".RES” 




OPEN PRO J 


1$ FOR APPEND AS 


*1: CLOSE 


OPEN " 


0" . 


1, PRO J 1 $ 




WRITE 


#1 . 


N, S JDATE , TT 




FOR Y 


= 1 


TO 5 




FOR X 


= 1 


TO TT 




WRITE 


*1 , 


DATEREC (X , Y) 




NEXT X 
WRITE 


#1 . 


DATERECMAX ( Y ) , 


RESOURCES (Y) 



NEXT Y 

CLOSE 

CLS 

GOTO 37850 

££Jt| *********************************** 

“■ £ *********************************** 
REM *********************************** 



ILE 



********************************** 

***********R ET RJ£ V £ DATA FRQM p ILE 
********************************** 



CLS: PRINT "Opening and reading data 
OPEN " I’M, PRO J$ 

INPUT *1, CALCRUNS, N, TT, JOBCOST , 

FOR X= 1 TO 10 

INPUT #1, RESOURCES ( X ) 

NEXT X 

IF TT > 500 THEN TTT = 500 ELSE TTT 
FOR X = 1 TO TTT 
INPUT #1 , JDATE (X) 

FOR WQ = 1 TO 5 

INPUT #1, DATEREC ( X , WQ ) 

NEXT WQ 
NEXT X 

FOR WQ = 1 TO N 

INPUT #1, ACT(WQ) ,DESC$(WQ) , DUR ( WQ ) , 
INPUT #1, ACTCOST ( WQ ) , ES(WQ), EF ( WQ 
FOR X= 1 TO 10 

INPUT #1, DEPON(WQ,X) ,RESOURCE(WQ,X) 
NEXT X 
NEXT WQ 

FOR X = 1 TO 5 

INPUT #1, DATERECMAX ( X ) 

NEXT X 

CLOSE 

CLS 



from file named ";PROJ$ 
OHC , HISTCALCS, S JDATE 

= TT 



COST ( WQ ) , K ( WQ ) 

) , LS (WQ) , LF(WQ) , TF(WQ) 
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37450 

37500 

37550 

37600 

37650 

37700 

37750 

37800 



GOTO 6250 

REM ********************************************************************* 
REM **********************************************************£ND PROGRAM 
REM ********************************************************************* 



INPUT "DID YOU WANT 
IF BZ$ = "Y" OR BZ$ 
IF B Z $ = "N” OR BZ$ 



TO SAVE THIS DATA 
= "y" THEN 32700 
= "n" THEN 37850 



( Y or N ) " ; B Z $ 



BEEP 



GOTO 37650 



37850 


PRINT : 


: INPUT 


"DO 


YOU 


WI 


SH TO WORK WI 


TH ANOTHER 


PROJECT (Y/N)? " 


, AS 




37900 


IF AS 


r= " y " 


OR 


AS = 


" y 


" THEN CLS : 


SOUND 300 , 1 


: SOUND 400,2 : 


SOUND 


900 , 3 


: 


GOTO 


3700 


















37950 


IF AS 


= "N" 


OR 


AS = 


"n 


" THEN 38050 










38000 


COLOR 


12 : PRI 


NT 


"PLEASE 


ANSWER 'Y' 


FOR YES OR 


' N ' FOR NO . ” 


: COLOR 


7 : 



38050 

38100 

38150 

38200 

38250 

38300 

38350 

38400 

38450 

38500 

38550 

N) 

38600 
38650 
LE . 
38700 
38750 
38800 
38850 
38900 



" ; CHR$ ( 2 ) : KEY ON : END 



GOTO 37850 

CLS : LOCATE 11,28:PRINT CHR$(2);” HAVE A NICE DAY! 

P£J^******************************************************************** 

R E M *************************************************** k I L L DATA ON FILE 

pgj^*^***^************************************************************** 

OPEN "I". 2, "PROJLIST" 

NNN = 0 

PRINT: PRINT " THE PROJECTS LISTED BELOW ARE CURRENTLY ON FILE." 

PRINT : PRINT "Project # Project Name" 

IF EOF (2) THEN CLOSE : GOTO 38650 

NNN = 1 + NNN 

INPUT#2, PROJECTNAMESS (NNN) , ACTNOS ( NNN ) : PR I NT : PR I NT NNN. PRO JECTNAMESS ( NN 



GOTO 38450 

IF NNN = 0 THEN LOCATE 23,1: INPUT " THERE ARE 

STRIKE RETURN FOR MENU AS : GOTO 6250 



NO PROJECTS CURRENTLY ON FI 



LOCATE 22,1 
LOCATE 23,1 
IF A$ = "Y" 
GOTO 6250 
LOCATE 22 



38950 LOCATE 23 



PRINT "DO YOU WANT TO DELETE ANY OF THE ABOVE PROJECTS" 
INPUT "FROM YOUR RECORDS (Y OR N)";A$ 

OR A$ = "y" THEN 38900 

PRINT" 

ti 

PRINT” 



39000 LOCATE 22,1: INPUT "WHAT PROJECT DO YOU WANT TO DELETE FROM YOUR RECORDS ( 

ENTER ITS PROJECT #)"; NNN3 

39050 IF NNN3 > NNN OR NNN3 < 1 THEN PRINT "YOU MUST ONE OF THE ABOVE NUMBERS": 
:BEEP: GOTO 39000 

39100 KILL PROJECTNAMESS (NNN3 ) 

39150 PROJECTNAMESS (NNN3 ) = "ERASENOW" 

39200 OPEN "PROJLIST" FOR APPEND AS #2 : CLOSE 

39250 OPEN "0", 2, "PROJLIST" 

39300 FOR NNN2 = 1 TO NNN 

39350 IF PROJECTNAMESS (NNN2 ) = "ERASENOW" THEN 39450 

39400 WRITE #2, PRO JECTNAMESS ( NNN2 ), N 

39450 NEXT 

39500 CLOSE 

39550 CLS 

39600 GOTO 38250 

39650 REM*********************************************************************** 
39700 REM * ********** ************* ******************** ****»hi STOG RAM CALCULATIONS 
39750 REM*********************************************************************** 
39800 HISTS = "Y" 

39850 IF CALCRUNS = "Y" THEN GOTO 19900 
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39900 

39950 

40000 

40050 

40100 

40150 

40200 

40250 

40300 

40350 

40400 

40450 

40500 

40550 

40600 

40650 

40700 

40750 

40800 

40850 

40900 

40950 

41000 

41050 

41100 

41150 

41200 

41250 

41300 

41350 

41400 

41450 

41500 

i 

41550 
41600 
41650 
41700 
41750 
41800 
41850 
41900 
41950 
### 
42000 
AR , 219 
42050 
42100 
42150 
42200 
42250 
42300 
42350 
42400 
42450 
42500 
42550 



IF HISTCALCS = "N" THEN 40950 
HISTCALCS = "N" 

H I ST$ = ” N " 

COLOR 1 4 : PRINT "PERFORMING HISTOGRAM CALCULATIONS" 

FOR XX = 1 TO 5 
DATE RE C MAX ( XX ) = 0 

COLOR 14 : PRINT : PRINT "CALCULATING FOR RESOURCES ( XX ): COLOR 7 
FOR X=l. TO TT 
DATEREC (X , XX) = 0 
FOR Y= 1 TO N 

IF X>=ES(Y)+1 AND X<=EF(Y) THEN DATEREC ( X , XX ) =DATEREC ( X , XX ) +RESOURCE ( Y , XX ) 
NEXT Y 

IF DATEREC(X.XX) > DATERECMAX ( XX ) THEN DATERE CMAX ( XX ) = DATEREC ( X , XX ) 
JDATE(X) = SJDATE -1 + X 

IF (JDATE(X) - 365 )/ 1000 <= I NT ( JD ATE ( X ) / 1 0 0 0 ) THEN 40750 

JDATE(X) = JDATE(X) + 1000 - 365 

GOTO 40600 

NEXT X 

NEXT XX 

CLS 

REM******************************************************************* 
REM**** ************************* **************PRI NT RESOURCE HISTOGRAM 
REM******************************************************************* 

FOR XX = 1 TO 5 
TTT = DATERECMAX ( XX ) 

IF TTT < 5 THEN TTT = 5 
IF TTT > 5 AND TTT < 10 THEN TTT = 10 
NUM =TTT/5: FACTOR = 50/TTT: MA = FACTOR 
PRINT TAB (60) ; V$ 

PRINT TAB( 10) ; "PROJECT: PROJ$ : PRINT 

PRINT TAB ( 10 ); "RESOURCE : RESOURCES ( XX ) 

PRINT X$ " RESOURCE LISTING & HISTOGRAM * X$:PRINT :PRINT 

PRINT TAB (24) ; "0" ; TAB (33) ; INT(1*NUM) ; TAB (43) ; INT(2*NUM) ; TAB (53) ; INT(3*NUM) 
TAB (63) ; INT(4*NUM) ; TAB (73) ; INT(5*NUM) 

PRINT "DAY" ; TAB ( 9 ) ; "DATE" ; TAB (17) ; " IN USE" ; TAB (24) ;CHR$(195) ; 

FOR X= 1 TO 11 

PRINT Y$ ; : PRINT US; 

NEXT X 
PRINT 

FOR X=1 TO TT 

HOWFAR = DATEREC (X , XX ) * FACTOR 
GOSUB 44050 
P 1 0 $ = 

## \ \ ## #### \ \" 
PRINT USING PI 0$ ; X ; CALDATED ; CALDATEMS ; CALDATEY ; DATEREC ( X , XX ); STR I NG$ ( HOWF 
) 

NEXT X 

INPUT "STRIKE RETURN TO CONTINUE", A$ 

CLS 

NEXT XX 

INPUT "DO YOU WANT A HARD COPY (Y/N)";A$ 

IF AS = "y" OR AS = "Y” THEN GOTO 42500 
IF AS = "n" OR AS = ”N" THEN GOTO 6250 

COLOR 12: PRINT " YOU MUST ANSWER Y OR N. ": COLOR 7 : GOTO 42250 

REM*************************************************************** 4 *** 
REM************** ****************** **********LPRINT RESOURCE HISTOGRAM 
REM******************************************************************* 
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42600 FOR XX = 1 TO 5 

42650 INPUT "PRINT NEXT RESOURCE (P), SKIP NEXT RESOURCE(S), (P/S).", A$ 

42700 IF A$ = "S" OR A$ = " s " THEN 43900 

42750 IF A$ = "P" OR A$ = "p" THEN 42850 

42800 COLOR 12 : PRINT "ANSWER P OR S.": COLOR 7 : GOTO 42650 

42850 TTT = DATERECMAX ( XX ) 

42900 IF TTT < 10 THEN TTT = 10 
42950 IF TTT > 10 AND TTT < 20 THEN TTT = 20 

43000 NUM =TTT/ 1 0 : FACTOR = 100/TTT: MA = FACTOR 

43050 LPRINT TAB(60); V$ 

43100 LPRINT TAB ( 10 ) ; " PRO JECT : PROJ$ : LPRINT 

43150 LPRINT TA B ( 1 0 ) ; ” R ESOUR CE : RESOURCES ( XX ) 

43200 LPRINT X$ " RESOURCE LISTING & HISTOGRAM " X$:LPRINT : LPR I NT : L PR I NT CHR$(1 

5) 

43 25 0 LPRINT TAB (24) ; "0" ; TAB (33) ; INT(1*NUM) ; TAB (43) ; INT(2*NUM) ; TAB (53) ; I NT (3* NUM 
) ; TAB (63) ; INT(4*NUM) ; TAB (73) ; INT(5*NUM) ; TAB (83) ; INT(6*NUM) ; TAB ( 9 3 ) ; I NT ( 7 * NUM) ;T 
AB (103) ; I NT ( 8 * NUM ) ; TAB (113) ; INT(9*NUM) ; TAB (122) ; INT(10*NUM) 

43300 LPRINT " DA Y " ; T AB ( 9 ) ; " D ATE " ; TAB ( 1 7 ) ; " I N US E " ; TAB ( 24 ) ; CHR$ ( 1 95 ) ; 

43350 FOR X=1 TO 21 

43400 LPRINT Y$ ; : LPRINT U$ ; 

43450 NEXT X 
43500 LPRINT 
43550 FOR X=1 TO TT 

43600 HOWFAR = DATEREC ( X , XX ) * FACTOR 

43650 GOSUB 44050 
43700 P10$ = 

### ## \ \ ## tttt \ 

\" 



43750 

FAR , 21 

43800 

43850 

43900 

43950 

44000 

44050 

44100 

44150 

44200 

44250 

44300 

44350 

44400 

44450 

44500 

44550 

44600 

44650 

44700 



LPRINT USING P10S; X ; CALDATED ; CALDATEMS ; CALDATEY ; DATEREC ( X , XX ); STR I NGS ( HOW 
9) 

NEXT X 

LPRINT CHR$ ( 1 2 ) 

LPRINT CHR$ (12): NEXT XX 

GOTO 6250 

££J^*********************************************************************** 

REM***************SUBROUTINE FOR CONVERTING JULIAN DATES TO CALANDAR DATES 
REM 3 * 3 * 3 * 3 * 3 * 3 * 3 * 3 * 3 *********** 3 ** 3 ***** 3 *** 3 * 3 * 3 * 3 * 3 * 3 ***** 3 **** 3 *********** 3 ** 3 * 3 * 3 * 3 * 3 * 3 * 3 * 41 **** 3 * 3 ** 
LY = 0 

CALDATE 1 $ = STR$ ( JDATE ( X ) ) 

YR = VAL (LEFTS (CALDATE1S , 2 ) ) 

CALDATEY = 80 + YR 

IF CALDATEY = 80 OR CALDATEY = 84 OR CALDATEY = 88 THEN LY = 1 
IF VAL (RIGHTS ( CALDATE1S , 3) ) <= 31 THEN CALDATEMS = "JAN": 

CALDATED = VAL ( R I GHT$ ( CALDATE 1 $ , 3 ) ) :GOTO 45000 

IF VAL (RIGHTS (CALDATE1S , 3) ) <= 59 + LY THEN C ALDATEM$ = "FEB": 

CALDATED = VAL ( R I GHT$ ( CALDATE 1 $ , 3 ) ) - 31 :GOTO 45000 

IF VAL (RIGHTS ( CALDATE1S , 3 ) ) <= 90 + LY THEN CALDATEMS = "MAR": 

CALDATED = VAL ( R I GHT$ ( CALDATE 1 $ , 3 ) ) - (59 + LY) :GOTO 45000 

IF VAL(RIGHT$ (CALDATE1S , 3) ) <= 120 + LY THEN CALDATEMS = "APR": 

CALDATED = VAL ( R I GHT$ ( C ALDATE 1 $ , 3 ) ) - (90 + LY) :GOTO 45000 

IF VAL(RIGHT$(CALDATE1$, 3) ) <= 151 + LY THEN CALDATEMS = "MAY": 

CALDATED = VAL ( R I GHT$ ( C ALD ATE 1 $ , 3 ) ) - (120 + LY):GOTO 45000 

IF VAL(RIGHT$ (CALDATE1S , 3) ) <= 181 + LY THEN CALDATEMS = "JUN": 

CALDATED = VAL ( R I GHT$ ( C ALDATE 1 $ , 3 ) ) - (151 + LY):GOTO 45000 

IF VAL (RIGHTS ( CALDATE 1 $ , 3) ) <= 212 + LY THEN CALDATEMS = "JUL": 

CALDATED = VAL ( R I GHTS ( CALDATE 1 $ , 3 ) ) - (181 + LY):GOTO 45000 
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44750 

44800 

44850 

44900 

44950 

45000 

45050 

45100 

45150 

45200 

45250 

45300 

45350 

45400 

45450 

45500 

45550 

45600 

45650 

45700 

45750 

45800 

45850 

45900 

45950 

46000 

46050 

46100 

46150 

46200 

46250 

46300 

46350 

46400 

46450 

46500 

46550 

46600 

46650 

46700 

46750 



IF VAL(RIGHT$(CALDATE1$,3) ) <= 243 + LY THEN CALDATEMS = "AUG" 



IF 

IF 

IF 



CALDATED = VAL ( RI GHTS ( CALDATE 1 $, 3 ) ) - (212 + LY):G0T0 45000 

VAL(RIGHT$(CALDATE1$,3) ) <= 273 + LY THEN CALDATEMS = "SEP”: 

CALDATED = VAL ( RI GHTS ( C ALDATE1 $ , 3 ) ) - (243 + LY):G0T0 45000 

VAL(RIGHT$(CALDATE1$,3) ) <= 304 + LY THEN CALDATEMS = "OCT": 

CALDATED = VAL ( R I GHTS ( CALDATE 1 $. 3 ) ) - (273 + LY):GOTO 45000 



VAL (RIGHTS (CALDATE1S , 3) ) <= 334 + LY THEN CALDATEMS = "NOV": 

CALDATED = VAL ( RIGHTS ( CALDATE1 $, 3 ) ) - (304 + LY):GOTO 45000 

CALDATEMS = "DEC" : CALDATED = VAL ( R IGHTS ( CALDATE 1 $, 3 ) ) - (334 + LY) 

RETURN 

REM*********************************************************************** 
REM************************SUBROUTINE TO CONVERT YR/MO/DA TO A JULIAN DATE 

j^j?^***********************#*********************************************** 

LY = 0 



IF 


RIGHTS (SJS , 


1 ) = " 0 


" OR 


RIGHTS (SJS , 


i) 


= "4" OR RIGHTS (SJS , 1 ) = "8" THEN 


LY 


= 1 














IF 


VAL (DAS) = 


1 THEN 


DAY 


= 0 


+ 




VAL (TES ) 


IF 


VAL (DAS) = 


2 THEN 


DAY 


= 31 


+ 




VAL ( TES ) 


IF 


VAL ( DAS ) = 


3 THEN 


DAY 


= 59 


+ LY 




VAL (TES ) 


IF 


VAL ( DAS ) = 


4 THEN 


DAY 


= 90 


+ LY 


+ 


VAL (TES ) 


IF 


VAL (DAS) = 


5 THEN 


DAY 


= 120 


+ LY 


+ 


VAL (TES ) 


IF 


VAL ( DAS ) = 


6 THEN 


DAY 


= 151 


+ LY 


+ 


VAL (TES ) 


IF 


VAL (DAS) = 


7 THEN 


DAY 


= 181 


+ LY 


+ 


VAL (TES ) 


IF 


VAL (DAS) = 


8 THEN 


DAY 


= 212 


+ LY 


■f 


VAL (TES ) 


IF 


VAL (DAS) = 


9 THEN 


DAY 


= 243 


+ LY 


+ 


VAL (TES ) 


IF 


VAL ( DAS ) = 


10 THEN 


DAY 


= 273 


+ LY 


4- 


VAL (TES ) 


IF 


VAL (DAS) = 


11 THEN 


DAY 


= 304 


+ LY 


4* 


VAL (TES ) 


IF 


VAL (DAS) = 


12 THEN 


DAY 


= 334 


LY 


4- 


VAL (TES ) 


SJDATE = VAL ( R 


IGHTS (SJS , 1 ) ) *1000 


+ 


DAY 


RETURN 














REM 


********************************************************************** 


REM 


[************************************ 


SUBROUTINE TO CONVERT AUG TO 7 ETC 


REM 


|********************************************************************** 


IF 


CALDATEMS = 


"JAN" 


THEN 


DAS = 


M j ** 






IF 


CALDATEMS = 


"FEB" 


THEN 


DAS = 


” 2 " 






IF 


CALDATEMS = 


"MAR" 


THEN 


DAS = 


"3" 






IF 


CALDATEMS = 


"APR" 


THEN 


DAS = 


" 4 •• 






IF 


CALDATEMS = 


"MAY" 


THEN 


DAS = 


"5" 






IF 


CALDATEMS = 


" JUN" 


THEN 


DAS = 


„ 6 " 






IF 


CALDATEMS = 


" JUL" 


THEN 


DAS = 


ii rj ii 






IF 


CALDATEMS = 


"AUG" 


THEN 


DAS = 


" 8 " 






IF 


CALDATEMS = 


"SEP" 


THEN 


DAS = 


„ 9 n 






IF 


CALDATEMS = 


"OCT" 


THEN 


DAS = 


"10" 






IF 


CALDATEMS = 


"NOV" 


THEN 


DAS = 


"11" 






IF 


CALDATEMS = 


"DEC" 


THEN 


DAS = 


"12" 







RETURN 
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1 REM ****************** RESOURCE 2 ************* **************************** * 
1000 DEFINT A-Z 

KEY OFF: CLS 

Y$ = STRINGS (4 , 196) : U$ = STR I NG$ ( 1 , 1 9 7 ) 

DATEMIN = 10000: DATEMAX = 0 
NUM = 0 

DIM PROJECTNAMESS (50) ,ACTN0S(50) , DATEREC ( 500 , 5 ) , TDATEREC ( 1 000 ) 

DIM INDIVIDREC( 1000 , 10) 

INPUT "WHAT IS THE EARLIEST YEAR THAT ANY PROJECT USED WILL START" ;A$ 

EARL YYEAR = VAL ( R I GHTS ( AS , 1 ) ) * 365 

r EM *********** ************************************************ ************ 
REM**********************»DISPLAY CURRENT FILES AND OFFER TO RETRIEVE DATA 
REM*********************************************************************** 
OPEN "PROJLIST" FOR APPEND AS #2: CLOSE 

OPEN "I", 2, "PROJLIST" 

0 



1100 

1200 

1250 

1300 

1400 

1500 

1600 

1700 

1800 

1900 

2000 

2100 

2200 

2300 

2400 

2500 

2600 

2700 

JECT 

2800 

NAME 

2900 



NNN = 

CLS 

PRINT 

PRINT 

PRINT 

tl 

PRINT 



COLOR 14: PRINT 



PROJECT 



THE PROJECTS LISTED BELOW ARE CURRENTLY ON FILE." 

PROJECT PROJECT PRO 



NAME 



NAME 



NAME 



### \ 



\ 



### \ 



\ 



### \ 



\ 



### \ 



3000 

3100 

3200 

3300 

3400 



: PRINT 

CLOSE : 



GOTO 



1 TO 80 
(2) THEN 
+ NNN 

PROJECTNAMESS (NNN) 



P8S = " 

\" 

COLOR 7 
FOR X = 

IF EOF 
NNN = 1 
INPUT#2 , 

$ (NNN) ; 

3500 GOTO 3200 

3600 IF NNN = 0 THEN PRINT "YOU HAVE NO FILES 
4300 LOCATE 22,1: INPUT "WHICH PROJECT DO YOU 

#) "; NNN1 

4400 IF NNN1 > NNN OR NNN1 < 1 THEN COLOR 12:PRINT 
MBERS " : COLOR 7 : BEEP : GOTO 4300 

4500 PROJS = PROJECTNAMESS (NNN1 ) : N = ACTNOS ( NNN1 ) 

REM************************************************************************ 
REM******************************************INPUT SELECTED DATA FROM FILES 
REM************************************************************************ 
CLS 



NEXT 

3600 

ACTNOS (NNN) : PRINT USING P8S ; NNN; PROJECTNAMES 



TO READ": END 

WISH TO COMBINE (ENTER THE PROJECT 
"YOU MUST ONE OF THE ABOVE NU 



4600 

4700 

4800 

4900 

5100 

5200 

5300 

5400 

5500 

5600 

5700 

5800 

5900 

6000 

6100 

6150 

6200 



PROJS = PROJS + ".RES" 
OPEN PROJS FOR APPEND AS 



#1 : CLOSE 



OPEN "I", 
INPUT #1 , 
FOR Y = 1 
FOR X = 1 
INPUT #1, 
NEXT X 
INPUT #1, 
NEXT Y 
PRINT "THE 
NUM = NUM 
FOR X = 1 



1 , 
N, 
TO 
TO 



PROJS 

SJDATE 

5 

TT 



TT 



DATEREC ( X , Y ) 

DATERECMAX ( Y ) , 

FOLLOWING ARE 
+ 1 
TO 5 



RESOURCES (Y) 

THE RESOURCES RECORDED FOR THIS PROJECT. 
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6300 PRINT: PRINT X, RES0URCE$(X) 

6400 NEXT X 

6500 INPUT "WHICH RESOURCE DO YOU WANT TO ADD TO THE REPORT (1 TO 5 ) . " ; A 
6600 GOSUB 8400: REM convert sjdate to start, eg 1001 changed to 0367 
6700 DAY = 1 : FINISH = START + TT 

6800 FOR X = START - EARLYYE AR TO FINISH - EARLYYEAR 
6900 TDATEREC ( X ) = TDATEREC ( X ) + DATERE C ( D A Y , A ) 

7000 INDIVIDREC ( X , NUM) = D ATEREC ( DAY , A ) 

7100 DAY = DAY + 1 

7200 IF TDATERECMAX < TDATEREC ( X ) THEN TDATERECMAX = TDATEREC ( X ) 

7300 NEXT X 

7400 IF DATEMIN > START THEN DATEMIN = START 
7500 IF DATEMAX < FINISH THEN DATEMAX = FINISH 
7600 PRO J 1 $ ( NUM ) = PR0J$ 

7700 RES$ ( NUM) = RESOURCE$(A) 

7800 PRINT: INPUT "DO YOU WANT TO PRINT THE COMPILED REPORT OR ADD ANOTHER RESOUR 
CE (P/A) " ;A$ 

7810 IF A$ = " P " OR A$ = " p " OR A$ = "A" OR A$="a" THEN GOTO 7900 

7820 COLOR 12: PRINT "ANSWER 'A' FOR ADD OR ' P ' FOR PR I NT COLOR 7:G0T0 7800 
7900 IF A$ = "P" OR A$ = "p" THEN CLS : GOSUB 9400 

8000 IF A$ = "A" OR A$ = "a" THEN GOTO 8200 

8110 PRINT: INPUT "DO YOU WANT TO ADD ANOTHER RESOURCE TO THIS REPORT (Y/N)";A$ 
8120 IF A$ = "y" OR A$ = "Y" THEN CLS : GOTO 8200 

8130 IF A$ = "n" OR A$ = "N" THEN GOTO 2200 

8140 COLOR 12: PRINT "ANSWER Y FOR YES OR N FOR NO" -.COLOR 7 GOTO 11100 

8200 PRINT: INPUT "IS THE ADDITIONAL RESOURCE FROM THIS PROJECT (Y/N)";A$ 

8210 IF A$ = "y" OR A$ = "Y" THEN CLS : GOTO 6100 

8220 IF A$ = "n" OR A$ = "N" THEN GOTO 2200 

8230 COLOR 12: PRINT "ANSWER Y FOR YES OR N FOR NO":COLOR 7 GOTO 11100 
8240 GOTO 1800 

8300 R£M*********************************************************************** 
8400 REM*****SUBROUTINE TO CONVERT JULEAN DATE TO LINEAR DUMBER FOR THE DECADE 



8500 


REM 


********************* 


********************* 


* * * 


****** 


******************** 


8600 


YR 


= 


INT(SJDATE/1000) 
















8700 


IF 


YR 


>= 0 AND ( (SJDATE 


/ 


1000) - YR ) * 


1000 


> 


59 


THEN 


LY = 1 


8800 


IF 


YR 


>= 4 AND ( (SJDATE 


/ 


1000) - YR)* 


1000 


> 


59 


THEN 


LY = 2 


8900 


IF 


YR 


>= 8 AND ( (SJDATE 


/ 


1000) - YR)* 


1000 


> 


59 


THEN 


LY = 3 



9000 START = I NT ( SJDATE/ 1 000 ) *3 65 +LY+ ( ( S JD ATE / 1 0 0 0 ) - INT ( SJDATE/ 1 000 ))* 1 000 
9100 PRINT YR ,( S JDATE/1 OOO-YR ) *1000 , LY , SJDATE , START 
9200 RETURN 

9300 R£M********************************************************************** 
9400 rem********************************************SUBROUTINE TO PRINT REPORT 
9500 rem********************************************************************** 

9600 PRINT "RESOURCE PROJECT RESOURCE 

9605 PRINT " NUMBER NAME NAME 

9606 PRINT " 

9700 FOR Z = 1 TO NUM 

9800 PRINT TAB ( 3 ) ; Z ; TAB ( 13 ) ; PR0J1$ ( Z ) ; TAB ( 28 ); RES$ ( Z ): PRINT 

9900 NEXT Z 

10000 FAC! = TDATERECMAX/5 : FACTOR!= 50/TDATERECMAX : MA ! = FACTOR! 

10010 PRINT : PRINT " DATE # REQ'D"; 



10100 




PRINT 


TAB ( 24 ) ; 


; "0" ; TAB (33) 


; INT ( 1 *FAC ! ) ; 


TAB (43) ; INT ( 2*FAC ! ) ; TAB (53) 




INT ( 3 ’ 


‘FAC ! ) ; 


TAB ( 63 ) ; 


; I NT ( 4 *FAC ! ) 


; TAB ( 73 ) 


; I NT ( 


5 * FAC ! ) 


10205 


PRINT 


ti 




n , 

t 


TAB ( 24 ) ; 


CHR$ ( 


195) ; 


10300 


FOR X 


= 1 TO 


1 1 










10400 


PRINT 


Y$ ; : 


PRINT U$ ; : NEXT X 
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10450 

10500 

10550 

10560 

10600 

10700 

10710 

10720 

10730 

10740 

10750 

10760 

10770 

10780 

10790 

10795 

10800 

10900 

10910 

11000 

11100 

11110 

11120 

11130 

11200 

11999 

12000 
12001 
12010 
12020 
12030 

12040 

12050 

12060 

12070 

12080 

12090 

12100 

12110 

12500 

44000 

44050 

44100 

44150 



N = 0 
FOR X 
GOSUB 
GOSUB 
PRINT 
FOR Y 



= DATEMIN - EARL YYEAR TO DATEMAX - EARL YYEAR 
12000 
44050 

TAB (3) ;CALDATED;CALDATEM$;CALDATEY;TAB(17) ; TDATEREC ( X ) ; TAB (24) ; 
= 1 TO NUM 



IF Y = 


1 


THEN 


ITEM = 


49 




IF Y = 


2 


THEN 


ITEM = 


50 




IF Y = 


3 


THEN 


ITEM = 


51 




IF Y = 


4 


THEN 


ITEM = 


52 




IF Y = 


5 


THEN 


ITEM = 


53 




IF Y = 


6 


THEN 


ITEM = 


54 




IF Y = 


7 


THEN 


ITEM = 


55 




IF Y = 


8 


THEN 


ITEM = 


56 




IF Y = 


9 


THEN 


ITEM = 


57 




IF Y = 


10 


THEN 


ITEM = 


48 




PRINT 
NEXT Y 
N = N 
PRINT 


STRINGS (Cl NT ( I ND I V I DREC ( X , Y ) 
+ 1 

: NEXT X 


* (FACTOR ! ) ) 


INPUT 


"DO 


YOU 


WANT TO 


QUIT AND RETURN TO DOS 


IF AS 


H 


y" OR 


AS = " 


Y" THEN CLS : 


END 


IF AS 


»» 


n" OR 


AS = " 


N" THEN GOTO 


11200 



(Y/N) " ; AS 



COLOR 12: PRINT "ANSWER Y FOR YES OR N FOR NO":COLOR 7 GOTO 11100 
RETURN 

REM*********************************************************************** 
REM******************** * * SUB ROUT I NE TO CONVERT LINEAR DAYS TO JULEIN DATES 
REM* * *************** *.* **************************************************** 



STARTX = DATEMIN + N 



IF STARTX >= 1 AND 


i STARTX <«= 


366 


THEN 


t JDATE = 0 


+ 


STARTX 


: GOTO 


12500 


IF STARTX >= 367 


AND 


STARTX 


< = 


731 


THEN 


JDATE 


= 


1000 


+ 


STARTX 


- 366 


GOTO 12500 
IF STARTX >= 732 


AND 


STARTX 


< = 


1096 


THEN 


JDATE 


— 


2000 


+ 


STARTX 


- 731 


.♦GOTO 12500 
IF STARTX >= 1097 


AND 


STARTX 


< = 


1461 


THEN 


JDATE 


__ 


3000 


+ 


STARTX 


- 1096 


♦.GOTO 12500 
IF STARTX >= 1462 


AND 


STARTX 


< = 


1827 


THEN 


JDATE 


_ 


4000 


+ 


STARTX 


- 1461 


: GOTO 12500 
IF STARTX >= 1828 


AND 


STARTX 


< = 


2192 


THEN 


JDATE 


_ 


5000 


+ 


STARTX 


- 1827 


: GOTO 12500 
IF STARTX >= 2193 


AND 


STARTX 


< = 


2557 


THEN 


JDATE 


__ 


6000 


+ 


STARTX 


- 2192 


: GOTO 12500 
IF STARTX >= 2558 


AND 


STARTX 


< = 


2922 


THEN 


JDATE 


_ 


7000 


+ 


STARTX 


- 2557 


: GOTO 12500 
IF STARTX >= 2923 


AND 


STARTX 


< = 


3287 


THEN 


JDATE 


_ 


8000 


+ 


STARTX 


- 2922 


: GOTO 12500 
IF STARTX >= 3289 


AND 


STARTX 


< = 


3653 


THEN 


JDATE 




9000 


+ 


STARTX 


- 3287 



: GOTO 12500 
RETURN 

REM*********************************************************************** 
REM***************SUBROUTINE FOR CONVERTING JULIAN DATES TO CALANDAR DATES 



REM*********************************************************************** 



LY = 0 
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44200 

44250 

44300 

44350 

44400 

44450 

44500 

44550 

[ 

44600 

44650 

44700 

44750 

44800 

44850 

44900 

I 

44950 

45000 



CALDATE 1 $ = STR$ ( JDATE ) 

YR = VAL(LEFT$(CALDATE1$,2) ) 

CALDATEY = 80 + YR 

IF CALDATEY = 80 OR CALDATEY = 84 OR CALDATEY = 88 THEN LY = 1 
IF VAL(RIGHT$(CALDATE1$,3) ) <= 31 THEN CALDATEMS = "JAN": 

CALDATED = VAL ( R I GHT$ ( CALDATE 1 $ , 3 ) ) : GOTO 45000 

IF VAL (RIGHT$(CALDATE1$, 3) ) <= 59 + LY THEN CALDATEMS = "FEB": 

CALDATED = VAL ( R I GHT$ ( C ALD ATE 1 $ , 3 ) ) - 31 : GOTO 45000 

IF VAL(RIGHT$(CALDATE1$,3) ) <= 90 + LY THEN C ALD ATEM$ = "MAR": 

CALDATED = VAL ( R I GHT$ ( C ALD ATE 1 $ , 3 ) ) - (59 + LY) :GOTO 45000 

IF VAL (RIGHTS ( CALDATElS , 3 ) ) <= 120 + LY THEN CALDATEMS = "APR": 

CALDATED = VAL ( R I GHT$ ( CALDATE 1 $ , 3 ) ) - (90 + LY) :GOTO 45000 

IF VAL ( RIGHTS ( CALDATElS , 3 ) ) <= 151 + LY THEN CALDATEMS = "MAY": 

CALDATED = VAL ( R I GHT$ ( CALDATE 1 $ , 3 ) ) - (120 + LY):GOTO 45000 

IF VAL(RIGHT$(CALDATE1$,3) ) <= 181 + LY THEN CALDATEMS = "JUN": 

CALDATED = VAL ( R I GHTS ( CALDATE 1 $ , 3 ) ) - (151 + LY):GOTO 45000 

IF VAL ( RIGHTS ( CALDATElS , 3 ) ) <= 212 + LY THEN CALDATEMS = "JUL": 

CALDATED = VAL ( RI GHTS ( CALDATE 1 $, 3 ) ) - (181 + LY):GOTO 45000 

IF VAL (RIGHTS ( CALDATElS , 3 ) ) <= 243 + LY THEN CALDATEMS = "AUG": 

CALDATED = VAL ( R I GHTS ( CALDATE 1 $, 3 ) ) - (212 + LY):GOTO 45000 

IF VAL(RIGHT$(CALDATE1$,3) ) <= 273 + LY THEN CALDATEMS = "SEP": 

CALDATED = VAL ( R I GHTS ( CALDATE 1 $, 3 ) ) - (243 + LY):GOTO 45000 

IF VAL(RIGHT$(CALDATE1$,3) ) <= 304 + LY THEN CALDATEMS = "OCT": 

CALDATED = VAL ( R I GHTS ( CALDATE 1 $, 3 ) ) - (273 + LY):GOTO 45000 

IF VAL(RIGHT$(CALDATE1$,3) ) <= 334 + LY. THEN CALDATEMS = "NOV": 

CALDATED = VAL ( R I GHTS ( CALDATE 1 $, 3 ) ) - (304 + LY):GOTO 45000 

CALDATEMS = "DEC" : CALDATED = VAL ( R I GHTS ( CALDATE 1 $, 3 ) ) - (334 + LY) 

RETURN 
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